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SSSSSSSS MM MM ABALAR LL 000000 ccccccce 
SSSSSSSS MM MM AAAAAA LL 000000 ccccccce 
$$ MMMM MMMM AA LL 00 oo CC 
SS MMMM MMMM AA AA LL 00 00 CC 
ss MM MM MM AA AA LL 00 oo CC 
SS MM MM MM AA LL 00 00 CC 
SSSSSS MM MM AA AA LL 00 00 CC 
SSSSSS MM MM AA AA LL 00 oo CC 
SS MM MM AAAAAAAAAA LL 00 oo CC 
SS MM MM AAAAAAAAAA LL 00 oo CC 
SS MM MM AA LL 00 oo CC eee 
SS MM MM AA AA LL 00 oo cc coe 
SSSSSSSS MM MM AA AA LLLLLLLLLL 000000 cccccccc coe 
SSSSSSSS MM MM AA AA LLLLLLLLLL 000000 ccccccce eee 
LL IIIII] SSSSSSSS 
LL HII SSSSSSSS 
LL I] SS 
LL I] $S 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
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16-Sep-1984 9}: 1:44 va 
211: . 


V4 42 P 1 
12-Sep-1984 12:30:47 SCFTIX.SRCISMALOC.B32;1)" (1) 


MODULE SMALOC ( 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

*® 

* 

. , * 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is QiHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. z 
x 
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i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: ORPORAT Ton NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: FIIACP Structure Level 2 
ABSTRACT: 
This module contains the routines that manipulate the volume 
storage bitmap. These include the routines to allocate a contiguous 
area, deallocate an area, and the basic bitmap scanner. 
Also included are the routines that manage the extent cache. 
ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 
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be AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Feb-1977 18:42 
0 MODIFIED BY: | 
05 v03-012 ACG0445 Andrew C. Goldstein, 21-Aug-1984 20:48 
be Fix handling of null extent cache in RETURN_BLOCKS 

05 v03-011 ACG0438 Andrew C. Goldstein, 1-Aug-1984 18:51 


Check map pointer count for non-zero in RETURN_BLOCKS 


vO2-008 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:28 
Previous revision history moved to F11B.REV 


n 3 | 
16-Sep-1984 01:11:44  VAK=11 Bliss-32_v4.0-742 Page 2 
12-80-38 93:43:23 DISKSVMSMASTER:CF11X.SRCJSMALOC.B32;1 ° (1) 
: 1! Add extent cache interlock bogie? peneye kernel calls, 
1} fold in UPDATE_FREE and SET_SMVBN routines. Use central 
! dequeue routine. 
06¢ 1/ v03-010 LMP0257 L. Mark Pilant, 25-Jun-1984 9:42 
065 1! Use double precision when calculation cluster round-up to 
O0¢s ! insure that the cluster calculation is unsigned. 
066 1) v03-009 cDS0004 Christian D. Saether 29-Dec-1983 
pote ! Use L_NORM Linkage and BIND_COMMON macro. 
069 1/ v03-008 CDS0003 Christian D. Saether 25-Sep-1983 | 
By : Manually merge in STJ5106. 
007@ ii V03-007 $TJ3106 Steven T. Jet treys, 20-Jun-1983 | 
th, : - Implement Erase On Extend (EOE). 
0075 1: v03-006 cps0002 Christian D. Saether 13-Sep-1983 
Bone ! Change interface to allocation serialization routine. 
0078 1 | VO3-005 ¢DS0001 Christian D. Saether _— 13-May-1983 
ith ’ Serialize storage allocation/deallocation activity. | 
0081 1! v03-004 STJ3081 Steven T. Jeffreys, 30-Mar-1983 | 
at) : - Added CHANNEL parameter to ERASE_BLOCKS call. 
0084 1} v03-003 $TJ3062 Steven T. Jeffreys, 18-Mar-1982 
0085 1! - Added call to ERASE BLOCKS from RETURN BLOCKS. 
ones : - Added ERASE_REQUESTED parameter to RETORN_BLOCKS. 
0088 1 | v03-002 ACG0298 Andrew C. Goldstein, 25-Aug-1982 16:32 
i494 : Detect attempts to create negative extent cache entries 
0091 1: v03-001 ACG45949 Andrew C. Goldstein, 8-Jun-1982 16:11 | 
B29 ! Prevent volume free space from going negative 
0094 1! v02-014 ACG43131 Andrew C. Goldstein, | 4-Jan-1982 18:11 | 
B23? : Fix spurious allocation failures in approx. placed allocation | 
0097 1! v02-013 ACG0229 Andrew C. Goldstein, 23-Dec-1981 22:10 
oS Boas ’ Count extent cache hits and misses 
100 0100 1! v02-012 ACG38789 Andrew C. Goldstein, — 1-Jul-1981 19:48 
19) Bibs ' Check for running out bit count in cylinder round up | 
103 0108 1 | v02-011 ACGO195 Andrew C. Goldstein, 53-Mar-1981 22:54 
H bie } Fix 4096 block boundary problem by checking zero in BITSCAN 
106 106 1! v02-010 ACGO180 Andrew C. Goldstein, 10-Sep-1980 14:44 | 
+ 34 ie ' } Fix cluster and cylinder rounding in extent cache allocator 
109 109 vO2-009 ACGO172 Andrew C, Goldstein,  9-May-1980 10:42 | 
mo AE 
118 118 1! 
114 0114 1! 


4 
1b-5e =1984 01:11:44 VAX-11 Bliss-32 V4,0-742 Page 3 
1 ~3e0-1 382 oh:} :47 DISKSVMSMASTER:CF11X.SRCISMALOC.B32; 1 . (1) 


v04=060 


ARY { SYSSLIBRARY:L 1B ,L32"; 
IRE *SRCS:FCPDEF .B32°; 
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Modes of operation of the bit scanner. 


LITERAL 


FIND_SET = 9. ! find first one 
FIND CLEAR = 1, ! find first zero 
SET BITS = ¢: ' set n bits 
CLEAR_BITS = 3; ! clear n bits 


FORWARD ROUTINE 
ALLOC BLOCKS : L_NORM, 
RETURN BLOCKS : L-NORM NOVALUE, 
INIT_ERT_CACHE : L_NORM NOVALUE, ! set up extent cache lock 
: L_NORM, : allocate entry from extent cache 
: L_-NORM, ! return entry to extent cache 
: LUNORM NOVALUE , ! return cache entries back to bitmap 
: L-NORM, ! remove entry from extent cache 
ALLOC_BITMAP : L-NORM, ! allocate blocks from storage bitmap 
: Loan NOVALUE, ! return blocks to storage bitmap 
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Vv06 
H 108 q} ? ! GLOBAL ROUTINE ALLOC_BLOCKS (FIB, BLOCKS_NEEDED, START_LBN, BLOCKS_ALLOC) : L_NORM = ; 
; 148 1135 1 S44 ; 
; (16 11 $ +} . 
3 168 1 } FUNCTIONAL DESCRIPTION: ; 
; 150 11 5 13 This routine allocates a single contiguous area of disk. It first ; 
3 13) 1140 1! attempts allocation from the extent cache. If that fails, it performs ° 
; ; § 139) } the allocation from the storage bitmap. ‘ 
; 156 1148 7% As part of system security, the blocks allocated will be erased ; 
; 156 1343 : } before returning the extent to the caller. ° 
; ¥ ; 11% 1 ! CALLING SEQUENCE: : 
: 128 Pr 4 : ALLOC_BLOCKS (ARG1, ARG2, ARG3, ARG4) . 
; 160 1149 1. ! INPUT PARAMETERS: ; 
; 161 1150 1! ARG1: address of FIB for this operation ‘ 
3 166 1151 1! ARG2: number of blocks to allocate ‘ 
; 1126 1! ‘ 
: 164 11 1 ! IMPLICIT INPUTS: : 
: 165 1156 1! CURRENT_VCB: VCB of volume ° 
: 166 1155 1! CURRENT_UCB: UCB of volume : 
: 167 1128 1! : 
; 168 1157 1 ! OUTPUT PARAMETERS: ; 
3 199 1158 1! ARG3: address of longword to store starting LBN : 
3 119 1323 } ARG4: address of longword to store block count ; 
3 17 1161 1°! IMPLICIT OUTPUTS: ; 
; i. Bf 1: LOC_LBN: plcement LBN of allocation or 0 : 
3: «61746 1165 1! : 
3; «175 1164 1 ! ROUTINE VALUE: ; 
3 176 1165 1! 1 if successful allocation ; 
; V7 1166 1! 0 if failure : 
; 178 1167 1! . 
; «179 1168 1°! SIDE EFFECTS: ; 
g 130 4 \ storage map, VCB, and extent cache modified | : 
: is¢ 1171 1 !-- : 
: 18 1178 1 : 
> «(184 117 BEGIN > 
3; 185 1174 : 
: 186 1175 MAP : 
3 : LOCK; : of operation e 
14 ie FIB REF BBLOC ! FIB of i : 
3 189 1178 LITERAL A : 
: bs 4 ALLOC_RETRIES = 3; ! Number of times to retry allocation : 
Ps | a 
3 196 1181 LOCAL ° 
: ' status of erase operation : : 
19 118 ERASED : f i ; 
3 Hb iy ATTEMPTS, mpapee oe or temers at cache allocation ; 
3 , ' status return value : 
3 136 1185 CACHE : REF BBLOCK, ! pointer to main cache block : 
; #19 11 EXTENT_CACHE : REF BBLOGK. ' pointer to extent cache : 
; 198 11 TEMP : VECTOR (2), ! quadword temp for EMUL @ EDIV : 
; 199 1188 EXT LIMIT, ' local longword copy of extent Limit parameter 3 
; 200 1189 DUMAY, ' dummy to receive remainder from EDIV ; 


a — 
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39 CACHE_TOTAL, ! total qe rpece to allocate into cache 
° ' LBN being allocated 
38 COUNT; ! block count being allocated 
94 BIND 
95 DUMMY _FIB = UPLIT (REP FIBSC_EXTDATA OF (BYTE (0))); 
36 ' default FIB for allocation for cache 
38 BIND_COMMON; 
00 2 EXTERNAL ROUTINE 
01 ALLOCATION LOCK : L_NORM, ! serialize allocation/deal location 
8 ERASE _BLOCRS : LIN ! Erase blocks before reusing them 
0 ALLOCATION UNLOCK :“L_NORM NOVALUE, ! release allocation Lock. 
04 RELEASE LOCKBASIS : L-NORM, ! release buffers under specified lock 
05 DEQ LOCR : LLNORM, ! dequeue a lock 
$6 CACRE_LOCK : LINORM; ! acquire cache sync lock 
EXTERNAL 


PMSSGL_EXTHIT : ADDRESSING_MODE (GENERAL), 
! count of extent cache hits 

PMSSGL_EXTMISS : ADDRESSING_MODE (GENERAL); 
! count of extent cache misses | 
| 


Serialize processing against other storage/header allocation/deal location. 


ALLOCATION_LOCK (); 


! First attempt to allocate the space from the extent cache. Note that 
' a placed allocation can actually split a cache entry; therefore, if the 
cache is full after the allocation, purge it to half. 


CACHE = .CURRENT_VCBCVCBSL_CACHE); 
EXTENT CACHE = .CACHECVCASC_EXTCACHE); 
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. PMSSGL_EXTHIT = .PMSSGL_EXTHIT + 1; 


| 

| 

| 

P) | 

$7 Lf (STATUS = ALLOC_EXTENT (7FIB, .BLOCKS_NEEDED, .START_LBN, .BLOCKS_ALLOC)) | 

8 BEGIN 

39 LF EXTENT _CACHECVCASH_EXTCOUNT] GEQU .EXTENT_CACHELVCASW_EXTSIZEJ | 
41 BEGIN 
4¢ PMS$GL_EXTMISS = .PMSSGL_EXTMISS + 1; | 
43 PURGE EXTENT (EXTENT _CACHELCVCASW_EXTSIZE] / 2, -1); | 
4s ELSE | 
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If the cache allocation failed, attempt allocation from the orteap. 
If this fails, purge the cache if there is anything in it, to make 
the bitmap consistent. Then attempt allocation from the bitmap again. 
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BEGIN 
PMSSGL_EXTMISS = .PMSSGL_EXTMISS + 1; 
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! If we successfully allocated something, erase the space if called for 
: and deduct it from the volume's free space. 
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; } 7 ; DECR J FROM 2 10 1 : 
3 1 t 4 BEGIN ° 
3 1250 5 IF (STATUS = ALLOC_BITMAP (.FIB, .BLOCKS_NEEDED, .START_LBN, .BLOCKS_ALLOC, 0)) : 
3 : 2 THEN EXITLOOP; ‘ 
; 1 4 ! Can't get the space from the bitmap as is. Purge back the extent cache, ‘ 
5 1254 4 | and, if we're in a cluster, ask for a flush of all others and try ‘ 
: 1255 4 ! once more. ; 
; : 2$ ? ! : 
: 1 38 4 PURGE EXTENT (0, 0); : 
3 1992 & jeneock CURRENT_UCBCUCBSL_DEVCHAR2], DEVSV_CLUJ | : 
: 1261 ENBEGIN | : 
; 1 6¢ LOCAL BIT_FILE_ID, LOCK_ID, STATUS | : 
3 126 RELEASE _LOCKBASIS ( | ; 
; 1264 ALLOCATION UNLOCK ( : 
; 1265 BIT FILE_IB = FIDSC_BITMAP OR .CURRENT_VCBLVCB$W_RVN] * 24 : 
; 1266 LOCR_ID = 0; : 
; 1267 CACHE_LOCK (.BIT_FILE_ID, LOCK_ID, 1) ; 
3 1268 2 ALLOCATION_LOCK 7); : 
; 1269 DEQ_LOCK (TLOCK_ID); : 
: 1270 4 END; | . 
; ; 4 END; é 
; 1 g ! If extent caching is not shut off, now refill the cache from the : 
; : ie bitmap block currently in memory. 

: 127 

; 1377 IF NOT .CACHECVCASV_EXTC_VALID] 

; 28 THEN INIT_EXT_CACHE~(. CACHE); 

3 1580 IF .CACHECVCASV_EXTC_VALID) 

; 1281 THEN 

3 1e8¢ 4 BEGIN 

; 1285 4 LOC_LBN = 0; ! discard placement 

: 395 1984 4 EXTULIMIT = EXTENT CACHECVCASW_EXTLIMIT];” | 

; 296 1285 4 EMUC (EXT_LIMIT CURRENT -VCBCVCBSL_FREE), TREF (0), TEMP); | 

> 297 1286 4 EDIV (ZREF (1006), TEMP, CACHE TOTAL, DUMMY 

; 98 1287 4 UNTIL LEK TENT CACHEL VCASH EXTEOUNT) 6EQuU MEXTENT _CACHECVCASW_EXTSIZEJ/2 

8 00 1569 BEGIN 

3 301 1290 IF NOT ALLOC BITMAP (DUMMY_FIB, .CACHE_TOTAL, LBN, COUNT, 1) 

; 0 1291 THEN EXITLOOP; 

: 30 1 3 5 RETURN EXTENT (.LBN, .COUNT 

; 304 129 3 CACHE TOTAL = CACHE isTAL -’ .COUNT; | 

; 305 1294 IF .CACHE TOTAL L 

: Of ! 95 2 THEN EXITCOOP; | 

; 308 1 39 END; - ; Pk 

: 09 } 38 END; ! end of bitmap processing conditional 

: 1300 

3 1 

$ 1 

3 1 


voor 

: 315 1 IF . STATUS 

; 1 1 §¢ THEN 

: 1 1 5 EGIN 

; 18 1 IF NOT .CURRENT yeetvcasy NOHIGHWATER? 

; 31 1 : THEN ERASE pLoc LOCRS ( ART_LBN, ..BLOCK eet OF 0. CHANNEL); 

; 320 1 CURRENT vce ve BSL raee)” = EORRENT arcet vee L_FREE . ~BLOCKS_ALLOC; 
: 321 1310 F .CURREN vtBs SL FR ih LSS 0 ~ 

; é i MEN UIRRENT. vyeet vee @ PREG) = 0 

: 4 131 

: 5 14 RETURN .STATUS; 

; $ 1316 7 END; ! end of routine ALLOC_BLOCKS 


-TITLE SMALOC 
IDENT \v04-000\ 


-PSECT S$CODES,NOWRT,2 


00 00000 P.AAA: .BYTE 0 
00 00001 ‘BYTE 0 
00 000¢ “BYTE 0 
00 9000 “BYTE 0 
00 00004 “BYTE 0 
00 00005 “BYTE 0 
00 00006 ‘BYTE 0 
00 00007 "BYTE 0 
00 - 00008 ‘BYTE 0 
00 90009 ‘BYTE 0 
00 O000A “BYTE 0 
00 90008 "BYTE 0 
00 0000¢ "BYTE 0 
00 00000 ‘BYTE 0 
00 0000 "BYTE 0 
05 0000F “BYTE 0 
00 00010 BYTE 0 
00 90011 ‘BYTE 0 
00 001g “BYTE 0 
00 001 "BYTE 0 
0 00014 "BYTE 0 
00 00015 "BYTE 0 
00 0016 BYTE 0 
09 901 “BYTE 0 
018 “BYTE 
00 90019 “BYTE 0 
00 OO01A “BYTE 
00 0018 “BYTE 
0 0001C “BYTE 
0 9010 “BYTE 
0 OO01E "BYTE 
0 0001F “BYTE 
DUMMY _F IB= PAA 
.EXTRN ALLOCATI 
“EXTRN ERASE 
“EXTRN RELEASE LOCKBASIS 
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16-Sep-1986 01:11:44  VAK"11 BLiss-32 v4.0-742 Page 9 
18782871383 9} 4):2} DISKSVMSMASTER:CF1iX.SRCISMALOC.B32: 1°" (2) 
| 
50 0B AB 01 €1 000¢ BBC #1, 11(CACHE), 9$ : 1280) 
20 AA bs £6 7$: CLR 32 (BASE) :1 5s 
51 Ae § CA MOVZ2WL BC(EXTENT_CACHE), EXT_LIMIT + 1284 
0 p ce MOVL  (R6), RO ; 1285 | 
AE 99 40 A 1 7A 0000 EMUL = EXT CIMIT 64(RO), #0, TEMP : 
5 5 0c AE 00000368  &F 4 Op EDIV #1000, TEMP, CACHE TOTAL, DUMMY : 1286 | 
3 C OO00E2 8S MOVZWL (EXTENT_CACHE), + 1287) 
0 C6 O00E DIVL2 #2, RO ; 
50 02 A2 10 FD £8 CMP7V #0, #16, 2(EXTENT_CACHE), RO : 
E OO0E BGEQU 9$ : | 
1 pp F PUSHL #1 ; 1290. 
08 AE OF 0 F PUSHAB COUNT : 
1 Ae OF OOOF PUSHAB LBN : 
53 DD OOF PUSHL CACHE_TOTAL : 
FEE2 CF 9F OOOFA PUSHAB DUMMY FIB : 
0000v CF 05 FB Bore CALLS #5, ACLOC_BITMAP : 
11 50 € 0 10 BLBC ~=_—«aRO,.- O98 ; 
04 AE DD 00106 PUSHL COUNT ; 1292 | 
0c AE DD 00109 PUSHL LBN F | 
0000v CF 0 FB 0010¢ CALLS #2, RETURN EXTENT : 
53 04 AE C2 00111 SUBL OUNT, CACRE_TOTAL + 1293 
CB 14 00113 BGTR $ + 1294 
2 55 €9 00117 9$ BLBC STATUS, 11$ + 1304 
0 66 DO OO11A MOVL (R6), RO + 1307 
OF 53. AD 04 €0 0011D BBS #4, 83(RO), 10$ : 
FF78 CA DD 00122 PUSHL -186(BASE) : 1308 
10 BC DD 00126 PUSHL  @BLOCKS ALLOC ; 
0C BC DD 00129 PUSHL as TART CBN 3 
00006 CF 03 FB 012¢ CALLS #3, ERASE BLOCKS ; 
50 66 DO 00131 10$: MOVL (RO), R + 1309 
40 Ad 10 BC C2 0134 SUBL2  @BLOCKS ALLOC, 64(RO) : 
50 66 DO 00139 MOVL  (R6), RO : 1310 
40 Ad 05 0013¢ TSTL  64(RO : 
03 18 0013F BGEQ ~=s«édi'1$ : 
40 Ad 04 00141 CLRL 0s 64 : 1311 
50 55 D0 00144 118 MOVL STATUS, RO : 1314 
04 00147 T : 1316 


; Routine Size: 328 bytes, Routine Base: S$CODE$ + 0020 
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14-Sep-1984 12:30:47 DISKSVMSMASTER:CF11X.SRCJSMALOC.832;1 


GLOBAL ROUTINE RETURN_BLOCKS (START_LBN, BLOCK_COUNT, ERASE REQUESTED) : L_NORM NOVALUE = 


'ee | 
' 
FUNCTIONAL DESCRIPTION: 
This routine returns a single contiguous area to the storage pool. 
If there is space in the cache, the blocks are simply returned to 
the cache. If the cache is full, if first purges some of the cache 
entries and then returns the blocks. 


CALLING SEQUENCE: 


PMSSGL_EXTHIT : ADDRESSING_MODE (GENERAL), . 

' count of extent cache hits 
PMSSGL_EXTMISS : ADDRESSING_MODE (GENERAL); : 

' count of extent cache misses 


; 138 | ; 
13 | : 
: td : 
; 1 ‘ 1 ; 
3 1326 1! : 
; 1356 | | | 
: 1359 4 | | : 
; 1328 1! | ; 
H : 4 : RETURN_BLOCKS (ARG1, ARG2, ARG3) | : 
; 1331 1 | INPUT PARAMETERS: 
; 1 ; 1} ARG1: starting LBN to free | : 
3 1 ,; ARG2: number of blocks to free ° 
3 : : : ARGS: boolean. 1 if blocks are to be erased, 0 if not. : 
3 13 $ 1 | IMPLICIT INPUTS: 
; 1337 1! CURRENT_VCB: VCB of volume : 
; “9 1335 : CURRENT_UCB: UCB of device : 
; 38 1340 1 | OUTPUT PARAMETERS: 
t 35% 13421 | sn 
: 355 1368 1 ' IMPLICIT OUTPUTS: : 
2S |B) ial fee! 
: 358 1346 | i ROUTINE VALUE: | : 
: $60 1348 1 | tes 
; 361 1349 1 | SIDE EFFECTS: : 
; o¢ 1329 ' storage map, VCB, and extent cache modified : 
i 364 1382 1 i ; 
3 1354 ¢ BEGIN | : 
; 1356 2 LOCAL ; 
3 1357 STATUS, ' Local storage for routine status : 
: 1358 CACHE : REF BBLOCK, ' pointer to main cache bloc : 
; 1359 EXTENT_CACHE : REF BBLOCK. ! pointer to extent cache 3 
; 1360 TEMP : VECTOR C2}, |: quadword temp for EMUL & EDIV |. : 
3 1361 EXT LIMIT, ! local longword copy of extent Limit parameter 3 
3 1 ¢ Y, ' dummy to receive remainder from E | 3 
3 : o7 CACHE _LIMIT; ! total disk space to allocate into cache | : 
; 1365 2 BIND_COMMON; | 
; 1 $9 EXTERNAL | : 
3 1368 | F 
3 1369 : 
3 1 3 
§ 1 3 
3 1 3 
; 1 3 


EXTERNAL ROUTINE 


| 
| 
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04 1e-8ep-188e 33:50:27 — DERKSVMGMASTERSCE Tix. sReasmaLoc.832:1°%" «S) 
74 ALLOCATION LOCK : L_NORM, 
4 7 ERASE_BLOCRS : LINORM; ! Erase blocks before reusing them 
7 
rs f First check the block count for non-zero. 
9 Be 
9 IF .BLOCK_COUNT EQL 0 
he Hf THEN ERR_EXIT (SS$_BADFILEHDR); 
38 és Check the blocks being returned against the volume size. 
98 
99 8 If .START_LBN + .BLOCK_ COUNT GTRU .CURRENT_UCBCUCBSL_MAXBLOCK] 
o00 3 THEN ERR_EXIT (SS$_BADFILEHDR); 
$36 90 ! Check that the start LBN and count are integral multiples of the 
40 91 ! cluster factor. If not, reject the operation on grounds of a bad 
404 9 ! file header. 
rt 9 ! 
07 95 IF .START_LBN MOD .CURRENT VCBCVCB$W_CLUSTER] NEQ 0 
96 OR .BLOCK COUNT MOD .CURRENT VCBCVCBSW_CLUSTER] NEQ 0 
id THEN ERR_EXIT (SS$_BADFILEHDR); 
99 ! Before returning the blocks, erase them if need be. 


Notify the user if an error is encountered. 


if - ERASE REQUESTED 
IF NOT (STATUS = ERASE_BLOCKS (.START_LBN, .BLOCK_COUNT, .IO_CHANNEL)) 
ERR_STATUS (.STATUS); 
Serialize processing against other storage/header allocation/deal location. 


ALLOCATION_LOCK(); 


! Attempt to activate the extent cache if it is not active. If it refuses 
! to activate e-9ie is null, or is inhibited due to interlocks), return 
the space directly to the bitmap. 


CACHE = .CURRENT_VCBLVCBSL_CACHE); 
EXTENT_CACHE = .CACHELVCASC_EXTCACHE); 


IF NOT ,CACHECVCASV_EXTC_ VALID) 
THEN INIT_EXT_CACHE (. CACHE); 


If NOT .CACHECVCASV_EXTC_VALIDJ 
THEN 


NS Un On tense ee 


SERFANS=SSe NOUS WN —OVODONOUE WN 900 


oO 
= 


BEGIN 
RETURN_BITMAP (.START_LBN, .BLOCK COUNT); 
PASSGL “EXTMISS = .PMSSGL_EXTMISS * 1; 
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12-8 08- 1 3be 93740503 DISKSVMSMASTER:CF11X.SRCISMALOC.B32;1 . a 
04 80 AA €9 0005 BLBC  #-128(BASE), 2$ 1407 
80 AA 30 60 gb MOVW STATUS, -128(BASE) 
00006 CF F 4 2$ CALLS #0, ALLOCATION_LOCK 1412 
28 AA D 69 MOVL  -104(BASE), RO 141 
58 38A0 D 6p MOVL 88(RO), CACHE 
06 A2 OD 1 MOVL 4 (CACHE) EXTENT_CACHE 1420 
17 0B A2 9 E 75 BBS #i, 11(CACHE), 3$ 14 é 
2 DD OOO7A PUSHL CACHE 14 
0000v CF 4 FB o07¢ CALLS #1, INIT EXT CACHE 
OR 0B A2 1 5 081 BBS #1. 11(CKCHES, 3$ 1425 
7E 04 AC 7D 00086 MOVQ START_LBN, -(SP) 1428 
0000v CF 0§ A ooeA CALLS ae RETURN_BI TMAP 
42 1 F BRB 7 1429 
7E 04 AC 7D 00091 38: OVO  START_LBN, -(SP) 1438 
0000v CF 9 4} 0095 CALLS #2, RETURN_EXTENT 
05 E B009A LBS RO, 5$ 
0810 &8F BF 0009D 4$ CHMU #2064 
04 O0A1 RET 
51 8 A3 3C OO00A2 5S: MOVZWL 8(EXTENT CACHE), EXT_LIMIT 
50 8 AA 0 00A6 MOVL -104 (BASE), 
6E 00 40 AO 51 7A OOOAA EMUL  EXT_LIMIT, 64(RO), #0, TEMP 
51 50 of 000003E8 8F 7B 90080 EDIV #1000, TEMP, CACHE_LIMIT, DUMMY 
& 02 A3 61 00089 CMPW = 2(EXTENT_CACHE), (EXTENT. CACHE) 1444 
06 1€ 000BD BGEQU 
50 04 A3 D1 000BF CMPL  4(EXTENT_CACHE), CACHE_LIMIT 1445 
16 1B 000C3 BLEGU 8$ 
30 pd 900¢5 6$: PUSHL CACHE_LIMIT 1448 
50 63 3¢ 900¢ MOV ZWL CEXTERT CACHE) , RO 
7E 50 02 C7 OOOCA DIVL3 #2, RO,~-(SP 
0000v CF 02 FB O0ce CALLS #2. PURGE EXTENT 
000000006 00 D6 000D3 7s: INCL PMS$GL_EXTMISS 1449 
06 11 00009 BRB 9$ 1444 
000000006 00 D6 000DB 8s: INCL  PMS$GL_EXTHIT 1452 
50 98 AA DO 000E1 9$: MOVL -104(BASE), RO 1455 
40 AO 08 AC CO O00ES ADDL2 BLOCK_COUNT, 64(RO) 
04 OOOEA RET 1457 


; Routine Size: 235 bytes, Routine Base: S$CODE$S + 0168 
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; 7) 1458 ! GLOBAL ROUTINE INIT_EXT_CACHE (CACH.) : L_NORM NOVALUE = 
oe eee 
; Ars 146¢ | FUNCTIONAL DESCRIPTION: 
: ree 1464 1! This routine sets up the val (at: £ forte interlock as necessary 
; ois 1465 1! and marks the cache valid, s is possible, considering 

; rt 1298 : dismount state of the J Th ‘oa write access to the storage map. | 
: 481 1468 1 | CALLING SEQUENCE: 

; ? § 1098 ! INIT_EXT_CACHE (CACHE) 

: 484 1471 1 | INPUT PARAMETERS: 

: 5 sei6 : CACHE: pointer to main cache block 

; 1474 1 | IMPLICIT INPUTS: 

: gered mn 

; 1477 1 | OUTPUT PARAMETERS: 

| ies yi ne 

; 1480 1 | IMPLICIT OUTPUTS: 

| re | Ghee 

: 4 1288 1/ ROUTINE VALUE : 

ig eee ses 

; 6 1486 1 | SIDE EFFECTS: 

; $00 1487 1/3 cache marked valid, lock taken out 

3 20) 1488 1! 

3 4 1489 1 i- 

; 50 1490 1 

3; 504 1491 BEGIN 

: 88 1298 5 MAP 

: 507 1494 CACHE : REF BBLOCK; ! pointer to cache block 

: 809 129 § LOCAL 

; 510 1497 EXT CACHE : REF BBLOCK, ! pointer to file ID cache 

3 31) 1633 BITMAP_FID; ' Lock basis for index file 

; 318 1300 BIND_COMMON; 

; a 1308 EXTERNAL ROUTINE 

; 516 150 CACHE _LOCK : L_NORM; ! acquire special cache lock 

| 

: 519 1308 ! If the cache is not currently marked valid, attempt to take out the 

; 520 1507 ' cache lock if we are in a cluster and may do so. | 
: 35) 1309 5 | 
: 3 4 1510 2 EXT_CACHE = , CACHE CVCASL EXTCACHE); 

; 2 4 1511 IF Ror -BBLOCK CURRENT OCBLUCBSL_BEVCHAR], DEVS$V_DMT 

3 5 tale AND NOT .CURRENT_VCB VBS" WRITE SM 

; 258 317 AND NEXT. CACHECVCASW_EXTSIZE) GTRU 
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81 bytes, Routine Base: $CODE$ + 0253 


; Routine Size: 


8 5 | 
16-Sep-1984 01:11:44 — VAX=11_ BLiss-32 V4.0-742 Page 16. 
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; : ! $ ! ROUTINE ALLOC_EXTENT (FIB, BLOCKS_NEEDED, START_LBN, BLOCKS_ALLOC) : L_NORM = 
; 56 15350 1 !4¢ 
; *8 ; ¢ : FUNCTIONAL DESCRIPTION: 
; 548 1534 1! This routine allocates a single contiguous area of disk from | 
; 549 1535 1! the extent cache. Mode of allocaticn is determined by the 

3 3} ; : } allocation control in the FIB. | 
: ¢ i 8 1 ! CALLING SEQUENCE: 

: a ! iB : ALLOC_EXTENT (ARG1, ARG2, ARG3, ARG4) | 
3 5 1541 1 ! INPUT PARAMETERS: 

; $ 1 rh} 1! ARG1: address of FIB for this operation 

; 1545 1! ARG2: number of blocks to allocate 

; 558 1544 1! 

3 59 1545 1 3! IMPLICIT INPUTS: 

; 560 1546 1! CURRENT_VCB: ADDRESS OF VCB IN PROCESS 

é re i ot4 : CURRENT_UCB: ADDRESS OF UCB IN PROCESS 

H 208 1549 1 ! OUTPUT PARAMETERS: 

; 564 1550 1! ARG3: address of longword to store starting LBN 

3 20? 132) : } ARG4: address of longword to store block count 

; 69 1383 1! IMPLICIT OUTPUTS: ; | 
; 568 1554 1! LOC_LBN: placement LBN of allocation or 0 

; 569 1555 1! ONE 

; 570 1328 1! 

: 371 1557 1 ' ROUTINE VALUE: : 

: Le: 1558 1! 1 if successful allocation 

3; «ST 1559 1! 0 if failure 

: 574 1560 1! 

3 of? 1561 1 ! SIDE EFFECTS: 

3 76 1288 1! Extent cache modified 

3 beer 1563 1! 

; 578 1564 1 !<- 

; 579 1565 1 

s 380 1208 BEGIN 
: 581 156 

3 oes 1568 MAP ‘ 
; 3S 1569 FIB : REF BBLOCK; ! FIB or operation 
; 584 1570 
3 5 137) LABEL 
3 . 1226 CACHE _SEARCH; ! extent cache search procedure | 
; 38 1574 2 REGISTER 
3 a4 1323 EXTENT_LIST : REF BBLOCKVECTOR C,8]; ! pointer to extent List 
; $31 1899 LOCAL 
: 4 1378 EXTENT_CACHE : REF BBLOCK, ! pointer to extent cache 
; 23 157 BLOCK_TOUNT, ' blocks needed rounded up to cluster 
3 6594 1580 J ' Loop and extent List index | 
; 595 133) LON, ' LBN of current extent 
3 15 ¢ ' block count of current extent — 
; 59 1387 CYL_SIZE ' size in blocks of volume's cylinder 

; 598 15 CYL “BOUNDARY; ' LBN of next cylinder boundary 
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3 Fo 1585 : 
; : : § BIND_ COMMON; : 
3 602 1588 ! Search the extent cache. If placement is specified, check for a match : 
; 60 1589 ! against the placement LBN, ‘ 
; 606 1 : : 
; 605 1591 ; 
; o8 : 38 CACHE_SEARCH: BEGIN : 
; 608 1594 BLOCK_COUNT = ((.BLOCKS NEEDED+. CURRENT 65 49 tea thd it Es : 
; 609 1595 / CURRENT VCBCVCB$W_CLOSTER]) * [CURRENT VCBLVCB$W_CLUSTER]; : 
; 610 1596 EXTENT _CACHE = .BBLOCK [.C BRENT VCBCVCBSL_ CACHE), VCASL_EXTCACHE); : 
; ee : 4 EXTENT_LIST = EXTENT _CACHELVCASQ_EXTLIST); : 
; gig 1599 Jj= 1; | : 
; 614 1600 WHILE .J LEQU .EXTENT_CACHECVCASW_EXTCOUNT) ° 
; 615 1601 dO : 
3 ee 1o06 4 BEGIN . 
; 61 16035 4 LBN = .EXTENT LISTC.J-1, VCASL_EXTLBNI; : 
; 618 1604 4 COUNT = .EXTERT_LISTC.J-1, VCASL_EXTBLOCKS); : 
; 619 1605 4 ; 
: 620 1606 4 IF .LOC_LBN EQL 0 : 
: 621 1607 5 OR (.LOC_LBN GEQU .LBN AND .LOC_LBN LSSU .LBN + .COUNT) : 
3; 6 ; 1608 4 THEN ’ 
3; 6 1609 5 BEGIN 
; 624 1610 2 
; 625 1611 ! If placement is specified, adjust the base LBN and count accordingly. 
; 626 Hy at 5 ! Likewise, if on-cylinder allocation is requested, move the LBN to the 
: 627 161 5 ! cylinder boundary. Then adjust to the cluster boundary. 
2 eh 
: 630 1616 5 IF .LOC_LBN NEQ 0 THEN LBN = .LOC_LBN / CURRENT -VCeLVCes optus lend 
; 631 1617 § * ,CURRENT_VCBCVCB$W_CLUSTERJ; 
; O34 1618 5 IF .FIBCFIBSV_ONCYL] 
; 63 1619 5§ THEN 
; 634 1620 6 BEGIN 
: 635 1621 6 CYL_SIZE = .CURRENT_UCBCUCBS$B_SECTORS) 
; 636 lose 6 * ,CURRENT_UCBCUCBS$B_TRACKS] 
: 637 166 6 /_ .CURRENT VCBCVCBSB_BLOCKFACT); 
; 638 1624 6 CYL_BOUNDARY = (.LBN / .CYL_STZE + 1) * .CYL_SIZE; 
; 639 1625 6 lf [CYL_BOUNDARY = .LBN LSSO .BLOCKS_NEEDED 
; 640 1626 $ HEN 
; 641 1627 BEGIN 
3 246 1628 7 IF NOT .FIBCFIBSV_EXACT) 
; 64 1629 9 THEN LBN = ((.CYL_ BOUNDARY + .CURRENT VCBCVCB$W_CLUSTER] - 1) 
: 644 1630 7 /_.CURRENT_VCBCVCB$W_CLUSTER]) * .CURRENT_VCBCVCB$W_CLUSTER] 
; 645 1631 7 ELSE RETURN 0; 
; 646 16 4 6 END; 
: 647 16 5 END; 
; 648 1634 
; 649 1635 IF .LBN GEQU .EXTENT_LISTC.J-1, VCASL_EXTLBN)] + .COUNT 
; 650 16 $ THEN COUNT = 
; $3) + i ELSE COUNT = .COUNT + .EXTENT_LISTC.J-1, VCASL_EXTLBN) - .LBN; 
3 re 1839 ! If the size is sufficient at this point, we win. If not, and the allocation 
: 654 1640 ! is neither exact nor on-cylinder, try backing off the adjustments made 
; 655 1641 ! above. Then check the size again; if the allocation is non-contiguous 


3; § 1 

3; 6 1808 
; 658 1644 
; 659 1645 
; 660 1066 
; 661 164 
3 666 1968 
; 66 164 
: 6646 1650 
; 665 19 1 
i 1888 
; 668 1654 
s $34 1655 
; 670 1998 
; 671 165 
; 67 1608 
; 67 165 
; 676 1660 
; 675 1661 
; 676 106¢ 
; 677 166 
; 678 1664 
; 679 1665 
; 680 bo ¢ 
; 681 166 
3 re 1668 
: 68 1669 
; 684 1670 
: 685 1671 
; 686 10r6 
; 687 167 
; 688 1674 
; 689 1675 
; 690 1or8 
; 691 167 
; 69 1678 
; 69 1679 
3 694 1680 
: 886 1882 
3 re] 1858 
; 698 1684 
: 34 193? 
3 00 16 

: 701 1687 
; 70 1688 
: 70 1689 
3; 704 1690 
; 705 1691 
3; 7? 1006 
3; 0 169 
; 708 1694 
; 709 1695 
; 710 1008 
: 711 169 
s 712 1698 


| 
: 
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! or if the size is big enough, this is it. 


perry 
mo 


:C 


IF .COUNT GEQU .BLOCK_COUNT 
THEN LEAVE CACHE_SEARCH; 


IF .LOC_LBN NEQ 0 
AND NOT tier iesy one ytd 
> Be -F IBLF IBSV_EXACT 


3-1, VEASL_EXTLEN 


f COUNT, ,EXTENT LISTC.J-1, VCASL_EXTBLOCKS)); 
-J-1, VCASLIEXTBLOCKS) 


END; 
IF .COUNT GEQU “BLOCK COUNT 
OR (.COUNT NEQ 
AND NOT .F IBLF IBSV_ALCON] 
AND NOT .FIBCFIBS$V~ALCONB)) 
THEN LEAVE CACHE_SEARCH; 


! end of cache search loop 


RETURN 0; 
END; 


whole cache searched - nothing found 
end of block CACHE_SEARCH 


! We get here if we find a suitable cache entry. Deduct the count needed 
} rom the count in the entry. If the result is zero, squish out the entry. 
! 


OUNT = MINU (.COUNT, .BLOCK_COUNT); 
F .COUNT EQL 0 
HEN BUG_CHECK (MAPCNTZER, FATAL, ‘Found zero extent in cache'); 


XTENT_LISTC.J-1, VCASL_EXTBLOCKS] = .EXTENT_LISTL.J-1, VCASL_EXTBLOCKS] - .COUNT; 
FejexTENT LISTE J=1, VCASL_EXTBLOCKS) EQL 0 


BEGIN 
CHSMOVE ((. EXTENT _CACHECVCAS$W_EXTCOUNTJ-.J)*8, 
EXTENT _LISTC.J, VCASC_EXTBLOCKS) 


EXTENT J-1, k§}); 
EXTENT CACHE VCASW_EXTCOUNT) = .EXTENT_CACHELVCASW_EXTCOUNT] - 1; 


C 
I 
T 
E 
I 
T 


' Otherwise the allocation is only part of the extent. If it is from the 
' front of the extent, recompute the starting LBN of the extent. 


itd IF .EXTENT_LISTC.J-1, VCASL_EXTLBN] EQL .LBN 
EXTENT_LISTC.J-1, VCASL_EXTLBN) = .EXTENT_LISTC.J-1, VCASL_EXTLBN) + .COUNT 
' If the allocation is from the end of the extent, no further action is necessary. 
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s 713 1999 ! if if is from the middle, we must split the extent. To do so, shuffle the 
; 716 1700 i remainder of the extent list up by one, bump the entry count, and compute 
; 715 1701 ' the split entries. 
: Hig hos 5° 
3 at P88 FUSE IF .EXTENT_LISTC.J-1, VCASL_EXTLBN] + .EXTENT_LISTC.J-1, VCASL_EXTBLOCKS] NEQ .LBN 
; 720 170: BEGIN 
: 7e1 170 CHSMOVE ((.EX TENT CA HECVCASY EXTCOUNTJ-.J)*8, 
: 7 ‘ 1708 EXTEN LTS! J 3, VCASC_EXTBLOCKS) 
: 7 1709 EXTEN i151 yCASL EXTBLOCKS}) 
: Tee 1710 EXTENT_CACH ver W gxte oUt EXTENT “EACHEEVCASU. EXTCOUNT] + 1; 
; 725 1711 EXTENT_LISTL.J, VCA TEXT LBN) = COUNTS .LBN; 
key $ a EXTENT-LIST ae Mat the ~EXTBLOCKS) EX XTE NT_LISTC.J-1, VCASL =fxregocns3 
; 4 { 713 + EX TENT “LIST 0 VCASL_EXTLBN 
: 729 1715 EXTENT_LISTC.J=-1, VCASL -EXTBLOCKS] = e ON TENT LLISTC.J-1, VCASL_EXTBLOCKS) 
; 730 1718 -EXTENT_LISTC.J, VCASL_ERTBLOCKS); 
; 731 171 END; 
$e, 1718 
; 7 1719 . START LBN = Ni 
Te 1720 “BLOCKS A o's 
; 4 5 7 1 EXTENT PACE , OERT TOTAL = .EXTENT_CACHECVCASL_EXTOTAL] = .COUNT; 
B® 17 § RETURN 1; 
; 738 1726 
3; 739 1725 1 END; ! end of routine ALLOC_EXTENT 
-EXTRN BUGS$_MAPCNTZER 
OBFC 00000 ALLOC_EXTENT: 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R11 3 1528 
5E 0c C2 00002 SUBL2 S 3 
08 AE 98 AA 9E 00005 MOVAB -104(BASE), 8(SP) > 1584 
50 08 BE 4 QOO0A MOVL a8(SP), RO 3: 1594 
51 C Ad 5 4443 MOVZWL 60(RO), R1 : 
51 08 ac C 9001 ADDL2 BLOCKS_NEEDED, R1 : 
51 7 0016 DECL R1 3 
52 3¢)6=— AO—s«3C:«C00018 MOVZWL 60(RO), R2 : 1595 
51 52 6 0001C DIVL2 R2, R1 : 
53 3c ag C O001F MOVZ2WL 60(RO) : 
5} 53 C4 00023 R 8 6ck COUNT : 
50 98 BE DO 00026 MOVL a8 (SP), RO + 1596 
29 5 AO DO 0002A MOVL 88(RO), RO $ 
5 04 ad 00 000 5 MOVL 4(RO), EXTENT CACHE : 
26 2c COA 4 00 MOVAB 44(R75, EXTENT_LIST : 1597 
) O} DO 000 MOVL “i, J : 1599 
us 02 A? 10 9 FD 90 1$: CMPZ7V #0, #16, 2(EXTENT_CACHE), J : 1600 
0 F 9 , BGEQU 35 : 
018D ; 041 33: BRW 0$ : 
4 6648 044 3$: MOVAQ (EXTENT_LIST)CJJ, R4 > 1603 
9 FC «AG OO 048 MOVL -4(R4), ~LBN : 
54D 4c MOVL R4, R2- : 1604 
5 FB A2 D 4f MOVL 3B ine) COUNT : 
5 20 AA 00 00053 MOVL 32(BASE), R3 > 1606 
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ROUTINE RETURN_EXTENT (START_LBN, BLOCK_COUNT) : L_NORM = 
‘ee 
FUNCTIONAL DESCRIPTION: 
This routine returns the indicated extent to the extent cache. 
t searches the cache to insert the entry in LBN order, and merges 


t with any adjacent entries. If the extent overlaps existing 
entries, an error return is made. 


CALLING SEQUENCE: 
RETURN_EXTENT (ARG1, ARG2) 
INPUT PARAMETERS: 
ARG1: starting LBN of extent 
ARG2: block count 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
1 if successful 
0 if blocks overlap 


SIDE EFFECTS: 
extent cache modified 


EEE EEE EEE EEE EET TS Oe 


BEGIN 
LOCAL 
EXTENT_CACHE : REF BBLOCK, ! pointer to extent cache ; 
EXTENT_LIST : REF BBLOCKVECTOR C,8], ! pointer to extent List 
; ! extent List index 


BIND_COMMON; 

! Search the extent cache until we find an entry whose start LBN is 

: higher than the end LBN of the extent being returned. 

IF .BLOCK_COUNT LEQ 0 

THEN BUG_CHECK (MAPCNTZER, FATAL, ‘Attempted to return zero extent to cache'); 


EXTENT_CACHE = .BBLOCK f cunnenT .vcOcyce L CACHE], VCASL_EXTCACHE); 
EXTENT_LIST = EXTENT_CACHECVCASQ_EXTLIST); 


J = 1; 
UNTIL .J GTRU .EXTENT_CACHECVCASW_EXTCOUNT) 
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; 138 17 ? dO 
; 7 17 BEG! 
: 90 1785 IF .EXTENT_LISTC.J=1, VCASL_EXTLBN] GEQU .START_LBN + .BLOCK_COUNT 

; 1 17 $ THEN EXITL OOP; 

: 8 17 48 ot © Us 

Py 8? 1738 END; | 
: 0¢ 1099 If there is a preceding entry, check it for overlap. 
: 80 179 : 

; 08 1998 IF .J GTRU 1 

3 1738 THEN 

; 10 1795 BEGIN 

; «81 1796 If .EXTENT_LISTC.J=2, VCASL_EXTLBN] + .EXTENT_LISTC.J-2, VCASL_EXTBLOCKS] 

: 13 179 GTRU .START_LBN 

: 1 1798 THEN RETURN 0; 

3 12 1238 END; 

: 1 1801 ! Check for adjacency with the preceding and current extents; if so, do 

3 8 1 oe ! a merge. 

fe Be 

: 820 1805 2 IF .J GTRU 1 

3; 821 1 06 AND .EXTENT_LISTC.J-2, VCASL_EXTLBN] + .EXTENT_LISTC.J-2, VCASL_EXTBLOCKS] 

; 8 é 180 EQL .START_LBN 

BE TE Ec 

; H 5 1810 EXTENT_LISTC.J-2, VCASL_EXTBLOCKS] = .EXTENT_LISTC.J-2, VCASL_EXTBLOCKS] + .BLOCK_COUNT; 

; £59 1812 IF .J LEQU .EXTENT_CACHECVCASW_EXTCOUNT) 

; 828 181 AND .EXTENT_LISTC.J-1, VCASL_ERTLBN] EQL .START_LBN + .BLOCK_COUNT 

i THN 

; 831 1Bi 4 EXTENT LISTC.J-2, VCASL_EXTBLOCKS) = 

; Be 1817 4 -ERTENT LISTE. J2, VCASL_EXTBLOCKS 

3; 83 1818 4 + .EXTENT-LISTC.J-1, VCA$I.-EXTBLOCKS); 

: 834 1312 4 CHSMOVE ((. EXTENT CACHECVCASQ EXTCOUNTJ-.J)*8, 

; 835 1820 4 EXTENT _LISTC.J, VCASC_EXTBLOCKS) 

; 836 1821 4 EXTENT Lis! J-1, VCASL EXTBLOCKS)); 

: 837 18 2 4 EXTENT_CACHECVCASW_EXTCOUNT) = .EXTENT_CACHELVCASW_EXTCOUNT] = 1; 

3 38 18 END; 

3 re H : END 

> B41 1 ELSE IF .J LEQU .EXTENT_CACHECVCASW_EXTCOUNT) 

3 ‘ i ; ‘i AND .EXTENT_LISTC.J-1, VCASL_ERTLBN) EQL .START_LBN + .BLOCK_COUNT 

> B44 18 9 BEGIN 

: 845 1830 EXTENT LISTE .J-1, VCASL_EXTBLOCKS) = .EXTENT_LISTC.J-1, VCASL_EXTBLOCKS] + .BLOCK_COUNT; 

: $ 1831 EXTENT-LISTE.J-1, VCASL-EXTLBN) = .START_LBN; 

i ee 1833 on | 
; rH } $ ELSE GIN 
; 851 1836 CHSMOVE (¢ EXTENT CACHECVCASH EXTCOUNTI=. J¢1) #8, 

it care SLIM -tTSTESS "ich eau seeeg) 2 
+ B54 1 § EXTENT_LISTL.J=T, VCASL_EXTBLOCKS) = .BLOCK_COUNT; 


| 
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1¢ 
r 
. START _LBN; 


See OS OS OS FS Oe HS HS He HS HS OS 6S HS HS HS HS ES ES FS FS FS FSFE ES FS HS FSFE FS FS SESS SHS SEHR *S*S *S FESS *S FE FECES HE *E SSS 


-BLOCK_COUNT; 


CHELVCASW_EXTCOUNT) + 1; 


g 
! end of routine RETURN_EXTENT 


-EXTENT_C 


VCASL EXTLONI = 
EXTCOUNT) = 
-EXTENT_CACHECVCASL_EXTTOTAL] + 


J-1 


EXTENT_LISTC 

EXTENT-CACHELYCASW 

END; 
EXTENT_CACHECVCASL_EXTTOTAL) = 


RETURN 1; 
END; 
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ep-1 
300-138 

PUSHAQ 
PUSHAQ 
ADD 
MOV 
SUBL 
MULL 
PUSHA 
PUSH 
MOVC 
DECW 
BRB 
MOVAQ 
CMPZV 
BLSSU 
CMPL 
BNEQ 
ADDL2 
MOVL 
BRB 
SUBL 
MULL 
ADDL 
mMOVC3 
MOVL 
MOVL 
INCW 
ADDL2 
MOVL 
RET 
CLRL 
RET 
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: B63 } 23 } GLOBAL ROUTINE PURGE_EXTENT (ENTRY_COUNT, CACHE_LIMIT) : L_NORM NOVALUE = 

H Be? 1 24 1 !+¢ 

; 868 1 26 1! 
; 56? ! e? : FUNCTIONAL DESCRIPTION: 

3 1a 1855 1! This routine removes the specified number of entries from the 
; ars ! 2$ : } extent cache and returns the blocks to the storage bitmap. 

; 874 1328 1 ! 
; 875 1859 1 ! CALLING SEQUENCE: 

; 578 1369 -s PURGE_EXTENT (ARG1, ARG2) 

; 87 1861 1! 

; 878 1906 1 ! INPUT PARAMETERS: Q 

; 879 1865 1! ARG1: number of entries to retain 

3 nt 1398 } } ARG2: total number of blocks to retain in cache 

; HT 1398 1 ! IMPLICIT INPUTS: 

; 88 1867 1! CURRENT_VCB: VCB of volume 

; 884 1868 1! 

; 885 1869 1 ! OUTPUT PARAMETERS: 

; 886 1870 1! NONE 

; 887 1871 1! 

; 888 1376 1 ! IMPLICIT OUTPUTS: 

; 889 1873 1! NONE 

; 890 1874 1! 

; «891 1875 1 ! ROUTINE VALUE: 

; 892 1876 1! NONE 

3; 8935 1877 1! 

; 894 1878 1 ! SIDE EFFECTS: pe 
; 895 1879 1! extent cache and storage bitmap modified 

; 896 1880 1! 

: 897 1881 1 !-- 

; 898 1336 1 

; 899 188 § BEGIN 

; 900 1884 

; 901 1885 BUILTIN FP; 

; 90 1886 

; 1887 LOCAL . 

; 904 1888 EXTENT_CACHE : REF BBLOCK, §! pointer to extent cache 

; 905 1889 EXTENT_LIST : REF BBLOCKVECTOR [,8], ! pointer to extent list 

; 906 1890 § BLOCK, ' bitmap block number of current extent 

; 907 1891 VBN, ' bitmap block number of best group 
: 908 1936 COUNT ' count of entries in current group 
; 909 189 BLOCKS, ' block count in current group 
3; 90 1894 BASE_J ' cache index of start of current map block | 
s 91) 1895 BEST COUNT ! count of entries in best group 

3 aig 1398 BEST-BLOCKS, ' count of blocks in best group 

; 91 189 BEST_J, ! index of start of best group 

; 914 1898 MOST_BLOCKS, : count of blocks in largest group 
: 915 1899 MO 4 ! starting index on largest group 

; 916 1900 BLOCRS_TO_REM, ! number of blocks to remove from cache 
s 917 1901 LBN ' starting LBN of extent 

; 918 1906 BLOCK_COUNT, ' count of extent 

3 919 190 LOCK_STATUS : VECTOR (2); ! lock status block 
3 350 1904 
3 921 1905 BIND_COMMON; 


] 
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; ¥ 19 

: 9 g 1997 EXTERNAL ROUTINE | 
; 926 19 3 ALLOCATION_LOCK : L_NORM, 
: 5 1302 ZERO_ON_ERROR; ! return zero on error signal (handler) 

; ? 1319 Serialize processing against other storage/header allocation/deallocation. 

: 929 191 

3 4 , a ALLOCATION_LOCK (); 

: om § 1318 ! If we are not removing all the entries, scan the extent cache for the 
: t 131 desired number of entries that reside in the same bitmap block. 

: 935 191 

; 9 $ 1920 EXTENT_CACHE = .BBLOCK C.C OPE wT COLYER CACHE], VCASL_EXTCACHE); 

3 ae 13 1 EXTENT_LIST = EXTENT_CACHELVCAS$Q_EXTLISTI; 

: 939 19 : IF .ENTRY_COUNT NEQ 0 5 
te 1958 § MENae | 
: 94 1926 BEST COUNT = 0; | 
: 94 19 BEST-BLOCKS = 0; | 
> 964 1928 MOST"BLOCKS = 0; | 
oe ie 
3 | 
3 +} 1343 ; an J FROM 1 TO .EXTENT_CACHECVCASW_EXTCOUNT) 
: 949 1933 4 BEGIN 
; 950 1934 5 BLOCK = (.EXTENT_LISTC.J-1, VCASL_EXTLBN] / 4096) 

> 951 1935 4 /” .CURRERT_VCBLVCB$wW_CLUSTER]; 

3 926 1936 4 IF .BLOCK NEQ .VBN 

SS EE Sea 

: oe 1940 8 COUNT 2Onc% 

{989 1941 5 BLOCKS = 0; | 
3B RE Bast * 

> 960 1944 4 COUNT =". COUNT + 1; 

: vg + ? BLOCKS = .BLOCKS + .EXTENT_LISTC.J-1, VCASL_EXTBLOCKS); 

: 963 1947 4 IF .COUNT GTRU .BEST_COUNT 

> 964 1948 4 THEN 

; 965 1949 5 BEGIN 

: 966 1950 5 BEST_COUNT = .COUNT; 

3 967 1951 5 BESTBLOCKS = .BLOCKS; 

; 968 1936 5 BEST.J=. ove 

im it - 
: 44 1955 4 If «BLOCKS GTRU .MOST_BLOCKS | 
; 395 1989 5 BEGIN 
; 974 1958 : MOST_BLOCKS = .BLOCKS; 

; 975 1959 MOST"J = .BASE_J; 
; 976 1960 4 ND; 

3; 977 1961 ; END; 

; 978 1962 
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See ee we got from scanning the cache. If removing the greatest number 
of entries will got tery the space reduction, then do that. Otherwise, 
es 


: 38 1383 3 eels 
: 981 1965 i go for the set of entr with the most space. If that isn't sufficient, ; } 
3 3 1308 : Start at the beginning of the cache. | ef 
: 9 196 | : 1 
; 985 1369 BLOCKS_TO_REM = .EXTENT CACHELVCASL EXTTOTAL] - CACHE LIMIT; | : : 
; a58 1970 IF .CACHE-LIMIT GTRU ,ERTENT_CACHELOCASL_EXTTOTAL 4 
; 98? 1971 THEN BLOCRS_TO_REM = 0; | i] 
: 989 1978 IF .BEST_BLOCKS LSSU .BLOCKS_TO_REM | i] 
: 930 1974 THEN | i] 
; 991 1975 BEGIN | : | 
: 998 1976 BEST J = .MOST J; | 7 
; 99 1977 4 F_.MOST_ BLOCKS LSSU .BLOCKS_TO_REM sf 
: 395 1999 § + Pee EM | | 
; 996 1980 : | i] 
; 444 108) VBN = (.EXTENT_LISTC.BEST_J-1, VCASL_EXTLBN] / 4096) / .CURRENT_VCBCVCB$W_CLUSTER]; | : 4 
: 999 1988 ! Now scan the extent cache, remove the called for entries, and return : ! 
: Ir 1388 : the blocks to the storage bitmap. | 3 | 
; 100 1986 3 | 31 
; 1903 198? UNTIL -BEST_J GTRU .EXTENT_CACHECVCASW_EXTCOUNT] | : . 
; 1005 1989 4 BEGIN | i] 
3; 1006 1990 4 LBN = .EXTENT_LISTC.BEST J-1, VCASL_EXTLBN); .¢ 
; 1007 1991 4 IF .EXTENT CACHECVCASL_ERTTOTALJ yegu CACHE LIMIT | 3 | 
; 1008 Hb. 5 AND (EXTENT CACHECVCASW_EXTCOUNT] LEQU .ENTRY COUNT : 

; 1009 1995 6 OR (. N -LBN 7 4096) / .CURRENT_VCB[VCBS$W_CLUSTER] ; : 
¢ 1010 199% § ; AND .ENTRY_COUNT NEQ 0) | ‘| 
; 1018 1996 THEN EXITLOOP; | i] 
; | 3 

; 1014 1998 4 BLOCK_COUNT = .EXTENT_LISTC.BEST_J-1, VCASL_EXTBLOCKS); : 1 
: 1015 1999 4 IF .ERTENT CACHECVCASC_EXTTOTALJ = .BLOCK COUNT LSSU .CACHE_LIMIT : 1 
: 1016 000 4 AND .EXTENT_CACHECVCASQ_EXTCOUNT] LEQU .ERTRY_COUNT :] 
: 1017 001 4 THEN : 1 
; 1018 4 BEGIN 3; 7 
3 1019 00 BLOCK_COUNT = .EXTENT CACHECVCASL_EXTTOTAL)] = .CACHE LIMIT; 3 1 
; 1020 004 BLOCK~COUNT = ((.BLOCR_COUNT + . RENT VCBCVCB$W_CLOSTERJ-1) 3 
3 4 005 ; = / CURRENT _VCBCVCB$W¥_CLOSTERJ) * [CURRENT _VCBCVCBSW_CLUSTER]; : ! 
; 1098 $09 4 REMOVE _EXTENT (.LBN, .BLOCK_COUNT); 31 
: + : 4 4 Fe elt (.LBN, .BLOCK_COUNT); | : , 
feed 8 heat wet 
; 1028 O18 ! For a full purge of the extent cache, just sweep through it, releasing 3 1 
; 1029 01 ' the entries. This is done under a handler so that 1/0 errors do not 3s} 
3 + ? Bie terminate the operation. At the end, we release the cache lock. : ' 
31 1 f :1 
; 4 9 ELSE s 1 
. 3 8 BEGIN | 
; 1035 1 .FP = ZERO_ON_ERROR; 31 
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3} 9 ; UNTIL .EXTENT_CACHECVCASW_EXTCOUNT] EQL 0 :) 
3 7 dO 3 1 
37 ; 4 BEGIN 71 
31 4 LON = .EXTENT_LISTCO VCASL EXTLBNI; :] 
71 9 4 4 BLOCK COUNT =~. EXTENT_LISTCO, VCASL_EXTBLOCKS); :) 
71 5 4 REMOVE _EXTENT (.LBN, [BLOCK COUNT); 31 
31 : 5 4 RETURN-BITMAP (.LBN, .BLOCK-COUNT); 3] 
: 1063 END; ae 
¢ 1069 0 ; JF pEXTENT CACHECVCASL_EXTCLKID] NEQ 0 2 
: 1949 d Pbk STATUSE1) EXTENT CACHECVCASL_EXTCLKIDJ ty 
; =. L L 3 
3 199 P 20 § 4 1F NOT SENQW (EFN = EFN a 
; 1050 P 2034 4 LKMODE = LCK$K_NLMODE 
> 1051 P 2035 4 FLAGS = LCKSM“NOQUEUE OR LCKSM_SYNCSTS OR LCKSM_CONVERT OR LCKSM_CVTSYS, 
; 1928 6 ° : LKSB = LOCK_STATUS 
; Ht 3 : 4 he BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); 
; 1056 040 BBLOCK £.CURRENT_VCBCVCBSL_CACHE], VCASV_EXTC_VALID) = 0; 
2): 
; 1059 rk END; ! end of routine PURGE_EXTENT 
.EXTRN ZERO_ON_ERROR, SYSSENQW 
-EXTRN BUGS_XQPERR 
OBFC 00000 ENTRY PURGE EXTENT, Save R2,R3,R4,R5,R6.R7,RB,R9,-; 1849 
5E 28 C2 0000 SUBL2 #40, SP : 
1c AE 98 AA 9E 0000 MOVAB -104(BASE), 28(SP) : 1903 | 
00006 CF 00 FB QO00A CALLS #0, ALLOCATION_LOCK : 1914. 
50 1¢ BE 00 0000F MOVL  a28(SP), RO > 1920 | 
50 58 ad 00 90013 MOVL 88(RO), ; | 
3¢ 04 ad DO 0001 MOVL 4(RO), EXTENT_CACHE ; | 
5 C A2 9E 0001B MOVAB 44(R25, EXTENT_LIST > 1921 | 
4 At D O01F TSTL  ENTRY_COUNT : 1923 
9 12 00022 BNEQ ~=s*‘T$ ; 
012C 31 00024 BRW 13$ ; 
5B D4 00027 18: CLRL = BEST_COUNT ; 1926. 
18 AE D4 99 9 CLRL BEST BLOCKS F 1987 
59 D4 C CLRL MOST~BLOCKS : 1928 | 
14 AE 01 ce 00 MNEGL #1, QBN : 19¢9 
10 AE 02 a2 3C 000 MOVZWL 2(EXTENT_CACHE), 16(SP) > 1931. 
$1 D4 000 CR : 1934 | 
af 11 90 9 BRB $ ; | 
50 6341 7 038 28: MOVAQ (EXTENT_LIST)CJJ, RO ; 
58 FC Ad 00001000 8F C F DIVL3 #4096 =4(RO), RB ; | 
54 1¢ «BE po 48 VL 92 (SP), R4 : 1935. 
of 3c ¢ 04 MOV2WL 60(R4), (SP) ; 
08 AE 6— C7 000 DIVL3 (SP), RB, BLOCK ; 
“uo 08 AE D1 000 CMPL BLOCK, VBN : 1936) 
0B 13 0005A BEQL ; 
14 AE 08 AE 00 0005c MOVL BLOCK, VBN : 1939) 
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: 4s 6 CLRQ BLOCKS : 1961. 
OC AE D MOV J BASE J + 1942 
| 7 D6 00067 38: INCL COUNT 1944 
6 FB AQ ¢ 9 ADDL2 (RO), BLOCKS + 1945 
B D1 CMPL COUNT » BEST_COUNT + 1947) 
9 1 BLEQU 4 : 
58 D 7 VL COUN COUNT + 1950 
18 AF 6 D 7 MOVL grocKé, Obest _BLOCKS + 1951 
3 OC AE OD MOVL BASE_J, BEST~J : 1952 
9 s : 970 4$: CPL BLOCRS, MOST~ “BLOCKS ; 1955. 
59 9 D 9 MOVL BLOCKS, MOST_BLOCKS : 1958 | 
AE o¢ AE D MOVL BASE_J. MOST~J ; 1959, 
ac 51 1 AE F OBA 5$: AOBLEQ 16(SP), J, 28 3 1931 
5 04 A 08 AC C3 0008F SUBL3 CACHE_LIMIT, 4(EXTEN T CACHE), BLOCKS_TO_REM ; 1969) 
046 A 8 AC Di 00095 CMPL CACHE-LIMIT, 4(EXTENT—CACHE) : 1970 
9 1B 0009A BLEQU 6$ : 
D4 0009C¢ CLRL _ BLOCKS_TO_REM + 1971 
50 18 AE D1 0095 6$: CMPL BEST BLOCKS, BLOCKS_TO_REM + 1973 
0c if OA BGEQU 7$ : | 
55 04 AE DO 000A4 MOVL § MOST_J, BEST : 1976) 
50 59 01 OO0A8 CMPL § MOSTBLOCKS, “BLOCKS. TO_REM : 1977 
03 if OOAB BGEQU 7$ : 
55 07 p 0000 MOVL #1, BEST : 1978 
FC A345 7F 000B0 7$ PUSHAQ tit NTENT! LIST) CBEST_JJ : 1981 
50 9E 00001000 8F C7 000B4 DIVL3 #40 a(SP)+, RO : | 
51 iC «BE pO 0008C¢ MOVL iad F 
54 3¢ OA ¢ 00¢0 MOVZWL 6 (Ri, R4 ; | 
16 AE 50 54 C7 000C4 DIVL3 VBN ; 
55 02 A2 10 00 £D 000C9 8s: CMP2V 50° ate 2(EXTENT_CACHE), BEST_J + 1987 
01 TE OOOCF BGEQU 9$ : 
04 00001 RET : 
50 6345 : 90002 9$: MOVAQ CEXTENT _LIST)CBEST_JJ, RO : 1990 
56 FC AO DO 00006 MOVL 4(R ; 
08 AC 04 ag D1 900A CMPL (EXTENT “CACHE), CACHE_LIMIT + 1991 
2 1A OOODF BGTRU : 
04 Ac 02 A2 10 0 FD OO0E| CMPZV #0, #16, 2(EXTENT_CACHE), ENTRY_COUNT > 1992 
01 1A OO0E8 BGTRU 108 : 
04 OOOEA RET : 
54 56 00001000 8F C7 000EB 10$:  DIVL3 #4096, LEN, R4 : 1993) 
51 ee BO OOF MOVL shen ; 
57 3¢ = Als 3C:«O00F MOVZWL RI : 
54 57 (6 000FB DIVL2 : | 
54 14 AE D Or CMPL aah RRs : | 
06 1 19¢ BEQL 118 ; 
06 ac 05 001 TSTL — ENTRY_COUNT 1 1994 | 
01 i3 197 BEQL 11$ : 
56 FB AO 09 O10, 11$:  MOVL. -8(RO), BLOCK_COUNT ; 1998 | 
50 06 A2 38 C3 001 SUBL3 BLOCK COUNT BCEXTENT _CACHE), RO : 1999 | 
a g OF Oot cnet RD, CACHE LL IRI ped 
04 ac 02 A2 10 09 ED 119 CHPZY n, #16, 2(EXTENT_CACHE), ENTRY_COUNT ; 2000 | 
Sa 04 a2 08 ac C3 001 ; SUBL3 CA HE pt Init. 4(EXTENT_CACHE), BLOCK_COUNT  ; 2003 | 
5 1C gE dO 001 MOVL. @ : 2004 | 
50 € CO 0012C ADDL2 @ ; 


DS eee eee EEE 
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—= 


; Routine Size: 431 bytes, Routine Base: S$CODE$S + 0581 


0 C 0012F MOVZWL (RO), RO : : | 

1 FF AOLE 9 001 ¢ MOV stu CBLOCK_COUNTI, R1 : :] 

1 ¢ 1 DIVL no. ; 2005, 31 

58 1 C 13A MULL 8 a LOCK_COUNT : | 3 1 
0140 BF 68 0013E 128:  PUSHR #°M<R6.RB> : 2007. 31 

0000v CF 2 FB 0014 CALLS #2 REMO e EXTENT ; 3 1 
0140 8F BB 0014 PUSHR  #*M< + 2008 3 1 

0000v CF 2 Fe 14 CALLS a. “RETURN _BITMAP : 3} 
FF 3 1 BRW a 3 1987) 3] 

6D 00006 CF 153 13$ MOVAB 7ZERO_ON_ERROR, (FP) + 2019) 31 

02 A2 85 00158 148 TSTW (EX XTENT_CACHE) + 2020 3] 

18 13 00158 BEQL 5 ; >] 

36 046 a3 00 0015D MOVL 4CEXTENT LIST), LBN 3 2023) : ] 

5 DO 00161 MOVL (EXTENT Ist), BLOCK. COUNT : 2024 3] 

0140 F BB 00164 PUSHR #*M<R6, 3 2025 : ] 

0000v CF 2 FB 90168 CALLS #2, REROVE EXTENT : 3 | 
0140 8F BB 0160 PUSHR #*M<R : 2026 : ] 

0000v CF 02 FB 00171 CALLS #2 RETURN_BITMAP : 3 | 
£0 11 00176 BRB 14$ + 2020 | 

0c Ag 08 0178 15$: TSTL 12 (EXTENT_CACHE) 3 2029 : | 

25 13 00178 BEQL -*16$ ; :] 

24 AE Oc Ae bd 017D MOVL  12(EXTENT_CACHE), LOCK_STATUS+4 ; 2032 :] 
7E 7C 00182 CLRQ -(SP) 3 2037 3 1 

7E 7C 00184 CLRQ = = (SP) ; | : | 

7E 7C 00186 CLRQ  =(SP) ; | : ] 

7E 04 00188 CLRL_ = (SP) ; | 7] 

7E 4E 8F 9A 0018A MOVZBL #78, -(SP) ; :] 

40 AE 9F 0018E PUSHAB Locks STATUS : : 1 

7E 1E 7D 00191 MOVO #30, 7=(SP) ; :] 
000000006 00 0 FB 00194 CALLS #11, SYSSENQW : : 1 
04 50 £8 0019B BLBS 0, 16$ : : | 

FEFF O019E BUGW : 2038 31 

0000* 001A0 . WORD <BuGs XQPERR!4> : 31 

1C 4 DO OO1A2 16$: MOVL a28(SP), RO + 2040 31 

50 58 AO DO 001A6 MOVL BB (RO) RO : 31 

0B «AO 02 BA OO1AA BICB2 #2, 11(RO) : 31 
04 OO1AE ET > 2043 : 

s | 

sy 

s 1 

| 
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# 
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1 
1 
ROUTINE REMOVE_EXTENT (LBN, COUNT) : L_NORM = 


> 1061 46 1 : 
: 1 é $c 1 : ] 
: 1 a9 1 !4¢ :] 
: 1 1! : ] 
3 1065 48 1 | FUNCTIONAL DESCRIPTION: : : 
3 1906 32 1! ‘ 

: 106 . 1 This routine removes the indicated number of blocks from the indicated ‘ 
: 1068 051 7! extent in the cache. If the total block count of the extent is removed, . 4 
: 5 94 O26 1! then the extent is eliminated completely. . 4 
; 1070 053 1! ; 

; 1071 054 1} 2] 
; 1078 055 1 | CALLING SEQUENCE: | 2 
; 107 2$ 1! REMOVE_EXTENT (ARG1, ARG2) : 4 
: 1074 057 1! . 

; 1075 038 1 | INPUT PARAMETERS: g 
; 1076 059 1! ARG]: LBW of extent to remove : 

3 107 060 1! ARG2: count of blocks to remove | : 
; 1078 061 1! : | 
; 1079 06g 1 | IMPLICIT. INPUTS: | 2] 
; 1080 063 1! CURPENT_VCB: VCB of volume | 2] 
; 1081 064 1! 1 
; 18s 065 1 ! OUTPUT PARAMETERS: 31 
3 108 066 1} NONE : 1 
3 1084 067 1! : 1 
: 1085 068 1 ! IMPLICIT OUTPUTS: | 3 1 
; 1086 069 1! NONE : 1 
3: 1087 070 1! 3 1 
: 1088 071 1 =! ROUTINE VALUE: 3 1 
: 1089 072 1! 1 3 1 
3 1090 073 1! : 1 
3 1091 074 1°! SIDE EFFECTS: 31 
: 1036 075 1! extent cache altered 3 1 
3; 109 076 1! : 1 
3: 1094 077 1 !-- 3: 1 
; 1095 078 #1 $1 
; 1998 079 BEGIN $1 
: 109 080 3 1 
: 1098 $oa3 LOCAL 3 1 
; 1099 Bae EXTENT_CACHE : REF BBLOCK, ' pointer to extent cache 3 1 
; 1189 soni EXTENT_LIST : REF BBLOCKVECTOR (,8); ! pointer to extent List ‘ 
: 1196 H BIND_COMMON; | i] 
° } . 

3 1104 087 ! Get the pointer to the extent cache and search it for the LBN. When 3 1 
3 1105 088 ! found, squish out the entry. : | 
3 1108 089 ! : | 
3: 110 090 3 

: 1108 091 EXTENT_CACHE = .BBLOCK CURAERT UCOC VERS. CACHED, VCASL_EXTCACHE); : | 
3 1195 y EXTENT_LIST = EXTENT_CACHECVCASQ_EXTLISTJ; : | 
51111 094 2 INCR J FROM 1 TO .EXTENT_CACHECVCASW_EXTCOUNT) | 
: We 095 dO : | 
3: 111 4 BEGIN 2, 
3 1114 09 IF .EXTENT_LISTC.J-1, VCASL_EXTLBN] EQL .LBN | - 
3 1115 098 THEN . | 
: 1116 099 4 BEGIN ‘ 

s 111 100 4 EXTENT_LISTC.J-1, VCASL_EXTLBN] = .EXTENT_LISTC.J-1, VCASL_EXTLBN) + .COUNT; g | 
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ROUTINE ALLOC_BITMAP (FIB, BLOCKS_NEEDED, START_LBN, BLOCKS_ALLOC, PARTIAL) : L_NORM = 


lee 
FUNCTIONAL DESCRIPTION: 


This routine allocates a eingte cont {guous area of disk. 
cals OF Pa lecetion is determined by the allocation control 
n the « 


CALLING SEQUENCE: 
ALLOC_BITMAP (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: address of FIB for this operation | 
ARG2: number of blocks to allocate 
ARGS: 0 to scan entire ortaep 
1 to scan only currently resident block 


IMPLICIT INPUTS: 
CURRENT _VCB: ADDRESS OF VCB IN PROC 
CURRENT_UCB: ADDRESS OF UCB IN PROC 


OUTPUT PARAMETERS: 
ARG3: address of longword to store starting LBN 
ARG4: address of longword to store block count 


IMPLICIT OUTPUTS: 
J aa placement LBN of allocation or 0 


ROUTINE VALUE: 
1 if successful allocation 
0 if failure 


SIDE EFFECTS: 
storage map and VCB modified 


—* 444 


BEGIN 
BUILTIN 


MAP 
FIB : REF BBLOCK; ! FIB of request 


WR OOD ND WE WN 0 OD NA UNE WIN 3 O ODNOA UE WIN @ O OONOAUN EWI OOODNOM 


LOCAL 
! § uster factor of volume 
KS_NEEDED : VECTOR C2), ! Blocks needed as a quadword 
ED, number of map bits to allocate 
. tmap bit looked at 
‘ bit address in storage map 
. number of bits to scan 
start of free area 
number of bits processed by scanner 
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Fi 


BELPER ERIS SELESLOSES BR 


1 
1 
1 END BIT ! last bit processed 
1 BEST_STARTBIT i start of argest free area 
1 BEST BITSFOUND, ' size of largest free area 
1 CYL_SIZE ' volume cylinder size in clusters 
1 CYL “BOUNDARY, i bit address of next cylinder boundary 
: DUMAY ; ! Throw-away remainder from EDIV 
1 LABEL 
1 MAP _SCAN; ! code block to scan the storage map 
BIND_COMMON; 


! Adjust the desired block count to a bit count through the volume 
cluster factor. Set up the running parameters. 


QUAD_BLOCKS_NEEDED[O) = .BLOTXS_NEEDED + .CLUSTER = 1; 
QUAD“BLOCKS-NEEDED(1) = 0; 

EDIV- (CLUSTER, QUAD_BLOCKS_NEEDED, BITS_NEEDED, DUMMY); 
BEST_BITSFOUND = 0; 

START_BIT = BEGIN_BIT = .CURRENT_VCBLVCBSB_SBMAPVBN] * 4096; 


CYL_SIZE = .CURRENT UCBCUCBSB_ SECTORS] 
* > CURRENT~UCBCUCBSB_ TRACKS 
/ CURRENT~VCBLVCBS$8~BLOCKF ACT); 


| 
CLUSTER = .CURRENT yppevBto CLUSTER); | 


Co NAME WN OOD NOME WI OO ODIO T 


! Get placement data if specified. If the placement LBN is garbaoe, fail if 
exact placement is called for, else forget it. 


IF .LOC_LBN NEQ 0 
HEN 


PIPINPIPIP INR) 2 et et et ot ot - tt 2 2 


RMRNUVMUNIN = = 33S BB OSOCOSOSSOSS L000 0-00 000000 002 09090009 IAIN ISIN 


PIPIPIPONOA) 2 2 st 2 2 es 
DNA MAE WN 0 OOO UE WI (OOOO EW 


—DODNOUSWN “OO OnNOufrwn—o 


BEGIN 
IF .FIBCFIBS$V_EXACT) 
THEN RETURN 0 

ELSE LOC_LBN = 0; 


| 
BEGIN | 
IF ,LOC_LBN GEQU .CURRENT_UCBCUCBS$L_MAXBLOCK) 
END; 
START BIT = BEGIN_BIT = .LOC_LBN / .CLUSTER; 

. 


! The outer loop potentially scans the aap twice: once from the given starting 
! point through to the end and then from beginning to end, if necessary to 
ocate a large contiguous area with a bad start. 


SOLER 


me et a a ak a ka a ak a a ak ot at = a = 2“ 2 2 ss g 


PPP FMA IMININININIPONI HAE & B&H ANPP NIPINPIPINPIMPIPIPYPIPIPIPUPIPIPUPIPIPUPIPPUPIPUNIPUNINNY 
~ 


aa gg ete Nt tre Nees ter rig 
FUN 


MAP _SCAN 
40 BEGIN 
41 HILE 1 DO | 
4 BEGIN | 
4 BIT_COUNT = .CURRENT_UCBCUCBSL_MAXBLOCK] / .CLUSTER - .START_BIT; 
ba If TPARTIAL | 
45 THEN BIT_COUNT = MINU (.BIT_COUNT, 4096); | 


Now scan the bitmap for the first free block. Way ing found it, scan 
5 


to see how many free blocks there are there. 


a non-contiguous 


f 
allocation, accept the blocks regerdsess. If tt is contiguous, and the 


ree area is too small, keep loo 


ing. 


WHILE 1 00 
N 


WAAAAAIAANIr 


BEG] 
IF .LOC_LBN EQL 0 
THEN 


| 
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EGIN 
IF BITSCAN (FIND_SET, .START BIT, .BIT COUNT, FIRST_SET, BITS_SCANNED) 


F 
THEN EXITLOOP; ! out if end of map 
EE aad = .BIT_COUNT - .BITS_SCANNED; 


ELSE 
FIRST_SET = .START_BIT; 


If on cylinder allocation is requested, see if sufficient space remains 
between the current point and the next cylinder boundary. If not, nudge 
to the next cylinder boundary if exact is not specified. If exact is 
specified, we allow for a nudge of 1 cluster to allow for the vagaries 
of cluster boundaries. 
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IF .FIBCFIBSV_ONCYLJ 
THEN 


BEGIN 

CYL_BOUNDARY = ((.FIRST_SET*.CLUSTER 7E +1) * 
IF ee tC /DOUNDARY/ .CLUSTER FIRST_S ITS_NEEDED 
BEGIN 
CYL_BOUNDARY = (.CYL_BOUNDARY + .CLUSTER = 1) / .CLUSTER; 
IF .FIBCFIBSV_EXACT 

LOC_LBN NEQ 0 

CYL_ BOUNDARY - .FIRST_SET GTRU 1 
RETORN 0; 


Y 
E 
COUNT = .BIT_COUNT = .CYL_BOUNDARY + .FIRST_SET; 
BIT COUNT LEG O THEN EXITCOOP; 
T_SET = .CYL_BOUNDARY; 


AND’. 
AND ; 
THEN 
BIT_ 
IF 7 
FIRS 
END; 
END; 
BITSCAN (FIND CLEAR, .FIRST_ 

START_BIT, BITS~ 
BIT_COUNT = .BIT_COUNT - .BITS_SCANNED; 
IF .BITS_SCANNED GTRU .BEST_BITSFOUND 
THEN 


" © S.SiT COUNT, -BITS_NEEDED), 


-CYL_SIZE; 
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| 

3 1304 § | 

: 1305 If .BEST_BITSFOUND GEQU .BITS_NEEDED 

3 1 8 OR (NOT T.FIBCFIB$V_ALCON) OR~.F IBLF IBSV_ALCONB)) 

; 130 AND .BEST_BITSFOUND NEQ 0) 

$ : $8 oy THEN LEAVE MAP_SCAN; ! found what we were after 

; 1310 3 IF .BIT_COUNT EQL 0 

; ' 1} + THEN EXITLOOP; ! end of storage map 

3 1 ig 95 ! If an exact placement was asked for and we didn't get it, it's all over. 

; ! 1 38 Otherwise, forget placement and continue scanning normally. 

3 3 1 96 

3 131 99 IF .FIBCFIBSV_ALCON) 

3 } 18 00 AND .FIBCFIBSV_EXACT) 

3 131 8} AND .LOC_LBN NEQ 0 

; 1320 § THEN RETORN 0; 

3 : 1 B LOC_LBN = 0; 

; ; § $02 ? END; ! end of map scan loop 

3 1 $3 307 4 ! We get here when we run into the end of the storage map. If the scan 

3 1 $8 308 4 ! started in the middle, do it once more from the top. 

3; 1327 4 4! 

; 1328 10 4 

3: 1329 11 4 If .BEGIN_BIT EQL 0 

; 1330 \¢ 4 OR .PARTIAL 

3; 1331 1 4 THEN LEAVE MAP_SCAN; 

; 133¢ 14 4 BEGIN_SIT = START_BIT = 0; 

3 13 te END; ! end of outer loop 

3 1338 $19 END; ! end of block MAP_SCAN 

: 1338 18 ' We have either found a cluster of free blocks suitable to the occasion 

: 1337 1 ' or we have searched the entire map. If nothing was found, or for a 

; 1338 0 ! normal contiguous request, return error if the number of blocks is 

; 1339 1 ' insufficient; otherwise, allocate the blocks. 

3; 1340 3 ¢ ! 

3 1341 2 

3 1 4g 4 IF .BEST_BITSFOUND EQL 0 

s 7 5 OR (.FIBEFIB$V_ALCON) AND NOT .FIBCFIBSV_ALCONB) 

3 : rt} $ ; AND -BEST_B1TSFOUND LSSU -BITS_NEEDED) 

3 3 § 8 BEGIN 

3 7 USER_STATUSC1] = .BEST_BITSFOUND * .CLUSTER; 

3; 1348 330 RETURN 0; 

3 : 4 ; 1 END; | 

: : 2) § BITSCAN (CLEAR_BITS, .BEST_STARTBIT, .BEST_BITSFOUND, END_BIT, BITS_SCANNED); | 

: 1388 5 CURRENT_VCBCVCB$B_SBMAPVBN] = .END_BIT / 4096; 

; 1355 $ -START_LBN = .BEST_STARTBIT * .CLUSTER; 

; 26 4 “BLOCKS_ALLOC = .BEST_BITSFOUND * CLUSTER; | 

: 1358 40 2 RETURN 1; 

3; 1359 41 : 

; 1360 42 END; ! end of routine ALLOC_BITMAP | 
| 
| 
| 
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ifesto- 1944 13:50:27 STS cSumSmaSter-crtix.sacasmacoc.032;1°%" (165 
ROUTINE RETURN BITMAP (START_LBN, BLOCK_COUNT) : L_NORM NOVALUE = 
i 
p POET cee. DESCRIPTION: 
This routine returns a single contiguous area to the storage map. 


i CALLING Maat 
RETURN BITMAP (ARG1, ARG2) 


INPUT A ph ged 
ARG]: starting LBN to free 
G2: number of blocks to free 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 
CURRENT_UCB: UCB of device 


{ OUTPUT PARAMETERS: 
NONE 


WRN SO OBNA YL FAP" OVOONOULE Ww 


5 
6 
6 
6 


IMPLICIT OUTPUTS: 
NONE 


{ ROUTINE iow 


—OOeOnou 


SIDE EFFECTS: 
storage map and VCB modified 


ANNO 
wr 


98 START BIT, ! starting bit number in storage map 
B1T_COUNT, ' number of bits to set 
1, ' dummies to receive return data 


DUMMY 2; ! from BITSCAN, which is not used 
BIND_ COMMON; 
: First check the blocks being returned against the volume size. 


BELLE Ew 
LESRELLSS 


oO 
@ 


IF .STAR -BLOCK COUNT GTRU ; CURRENT -UCBCUCBSL_MAXBLOCK] 
THEN BUG_ "check: (EXTCACRIV, FATAL, ‘Contents of extent cache is garbage’); 


: otutee down Pat the volume cluster factor to convert blocks to storage 
i map bits. here are non-zero remainders, reject the operation on grounds 
of a bad tle header. 


3 


“ooc 
LES 
LSSS VEU $9 OONOUSE 

PREPDAIPOPOPOPOPOROPOPOPONOPOPOPOPUNOPOPONINIDIDD —2 2 2 tt 

- ® 

om 

> a 

a 

a 


me ee ee ee ee ee ee el ee me ee ee el a ee ce ee le el cel el el cel el ll el cel cel eel cl cel cel el el cel els lt cells sacl cls cl cls cl 


Pot at ot at ot ot ot ot ot 
tt a a a a ed 


LBN MOD = CURRENT. VCBCVCB$U_CLUSTER] NEQ 0 | 
"check (EX evan IV,"FA of extent cache is garbage’); 
= 


. "Con 
BIT = .START / * CURRENT _VCBLVCBSu_ CLUSTERI: 


Be Be Fe Se Se Se Se Se Se Se Be Se Se Se Se Se Se Be Se Ge Fe Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Ge Se Ge Se Se oe Se Se Ge Se Se Ge we 


IF oe 
THEN BUG 
START _BI 


7 
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yoee000 12-80 8-138e 93340503 DISKSVMSMASTER:CF11X.SRCISMALOC.B32; ? 9 10). 
: 161 4 : 
; 146 6 401 IF 8 OCK_COUNT MOD , CURRENT ycBLV¢Bsu CLUSTER] NEQ 0 : 
3 14 4 ; THEN BUG THe CK (EXTCACHIV, FATA aten ts of extent_cache is garbage’); ; 
; 14 é ‘ BIT COUNT -BLOCK_COUNT / POURRENT. “VCB VCBSW_CLUSTERJ; : 
: 1426 405 ' Call t ne bit scanner to set the appropriate ; 
; 1° ‘ rt bits. Finally update the volume free block count. : 
: 14 4 ; 
; 16 § 609 BITSCAN (SET_BITS, .START_BIT, .BIT_COUNT, DUMMY1, DUMMY2); 
; 14 411 END; ! end of routine RETURN_BITMAP ; 
.EXTRN BUGS$_EXTCACHIV : 
0000 00000 RETURN_BITMAP: : 
WORD Save nothing ; 2343 ‘ 
SE 08 C2 0000 SUBL2# : | : 
51 06 AC 08 AC C1 0000 ADDL3 BLOCK COUNT, START LEN, RI ; 2389 : 
50 94 AA 00 00008 MOVL 51 08 (BAS RO ; é 
0080 0 51 D1 O000F CMPL sR 7EtROS : F 
04 18 Bene BLEGU 18° : ‘ 
FEFF 00016 UGW > 2390) : 
0000* 00018 . WORD <oues EXTCACHIV!4> : ; 
50 98 AA DO OOO1A 18: MOVL -104(BASE), RO > 2397) : 
50 3c 060A 3 OO01E MOVZWL 60(RO), R : : 
7E 99 04 AC gi A 000 EMUL #1, START_LBN, #0, -(SP) : | : 
50 0 BE 0 78 00028 EDIV. RO, (SP)+> RO, RO : | : 
50 D5 00020 TSTL = RO ; | : 
04 1 00¢ BEQL = 28 : | : 
FEFF 00031 BUGW : 2398 : 
0000* 90033 «WORD <BUGS_EXTCACHIV!4> : F 
50 98 AA pO 00035 2s: MOVL -104(BASE), RO : 2399 ; 
51 3c A ¢ 0039 MOVZWL 60(RO), START BIT ; : 
51 04 AC 51 C7? 00030 DIVL3  START_BIT, START_LBN, START_BIT ; F 
50 98 AA DO 00042 MOVL -104(BASES, RO > 2401 ; 
50 3¢ = AO 3C: «00046 MOVZWL 60(RO), RO : : 
7E 90 08 AC 1 7A OO4A EMUL #1, BLOCK_COUNT, #0, -(SP) ; ; 
50 0 BE 0 78 0005 EDIV RO, (SP)+> RO, RO : : 
50 05 0005 TSTL RO : : 
04 13 0005 BEQL 3 ; : 
FEFF 099 BUGW > 2402 | ; 
0000* r . WORD <ByG$ EXTCACHIV!4> : 3 
50 98 AA pO 05D 3$: MOVL  -104(BASE) > 2403 | F 
50 3c =A ¢ 061 MOVZWL 60(RO), BIf_COUNT : F 
50 08 AC 20 C 065 DIVL3 BIT_COUNT, BLOCK_COUNT, BIT_COUNT ; ; 
t bb 06A PUSHL SP > 2409 | : 
08 Ar F 0006C PUSHAB DUMMY1 : : 
50 0D 0 F PUSHL BIT COUNT ; : 
51 OD 1 PUSHL  START_BIT : ; 
8 0D bre PUSHL A; : : 
0000v CF 05 FB 0007 CALLS #5, BITSCAN ; : 
04 OOO7A RET ; 2411 : 


; Routine Size: 123 bytes, Routine Base: S$CODE$ + 0964 
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D) : L_NORM = 

3 14 t18 } ROUTINE BITSCAN (MODE, STARTBIT, BITCOUNT, STOPBIT, LENGTHFOUN 

; 1 ret ! ‘td 

; 1 3 416 ' FUNCTIONAL DESCRIPTION: raped 

: ie ic bitmap scanner. It scans the 

2 ie t18 1 ar ep Re hea of bits. performing the operation 

; 1020 420 1! specified ~ the mode. | 
> 1661 401 1 

HEE BEBE P| MUNG FEOUENER ion, ance, anes, ant, anes 

+ 1464 606 1 

ieee ¢ 3 1 eo peels osas of operation - see module preface 

; 1ae9 4 5 1! ARG2: starting bit address in bitmap 

: 1208 428 1! anes: maximum number of bits to process | 
+ 1449 409 1: | 
: ees ¢ : } LC maent wie: address of VCB in process 

3 ; “ | 
; 1028 4 ¢ 1! TERS: | 
12 a Gd abate coieas d eive ending bit address 

: ; ARG4: address of longword to rec 

; 1288 4 5 ARGS: address of longword to receive number of bits scanned 

+ 1228 43? 1 i IMPLICIT OUTPUTS: 

r} rt | $38 ' } NONE 

3; 1465 : : 
errs rr } es iP anciges bit count processed | 
: 1462 $eg 1! 0 if not | 
: 146 443 1 | | 
: i EFFECTS: | 
: 1ee8 cis _— bitmap blocks may be altered, read, and written | 
1069 46? | ine 
: 1668 ret ! BEGIN 

3 ioe | 
; 1470 450 | 
$33 a. ! f bits to go 
ter re come i tae bined block number | 
: 147 t2 Oe yTe: i current byte offset in block 

: 1474 $28 atte ' current bit number within byte 

1298 t3 SOrECIM ' number of bytes to scan 

: 1238 " $ Hae : ' number of bits to scan 

s 167 ¢ eirtER’ i address of bitmap buffer 

z 1678 t28 Pureyre i end of current byte scan 

: 12B0 ret ENDBIT:" ' end of current bit scan 

; 1482 te BIND_COMMON; 

+ 148 46 - | 

1638 re ¢: siahheeeate if) : A, ! mark buffer for writeback 

: 1486 486 READ BLOCK : t-NORR: ! read a disk block 

4 46 - 

: 1283 468 


16-Sep-19 & OF: 3:46 " 46 


14-Sep-1984 0:47 D 
! Initialize by setting the count and setting up the pointers to 


2 
: 


V4,0-7 
FIIX.S 


42 
1X. SRC 


; 1489 469 ! 

5 1286 470 ! the Start ine position. Read the first map dlock. The case of a 

; 1491 47 ' zero count is handled specially to avoid bitmap edge problems. 
.) re 

> 1494 474 2 COUNT = .BITCOUNT; 

3 14695 475 If .COUNT EQ = 

5 1098 47 THEN 

3; 149 47 BEGIN 

3 1208 47 «LENGTHFOUND = 0; 

; 146 47 ~STOPBIT = .STARTBIT; 

s 4 RETURN 1; 

3 ; re END; 

; 1 4 & q BLOCK = .STARTBIT<12,20>; 

3; 1504 4 IF .BLOCK GEQU .CURRENT VCBCVCBSB_SBMAPSIZE) 

; ! 05 rs 5 THEN BUG_CHECK (BADSBMBCK, FATAL, ‘ACP tried to reference off end of bitmap’); 
:1 0 4 IF .BLOCK+1 EQL .BITMAP_VBN 

; 1508 4 AND .CURRENT_RVN EQL .BYTMAP_RVN 

3; 1509 489 THEN 

: 1510 490 BUFFER = .BITMAP_BUFFER 

3 1511 491 ELSE 

3: 1 \§ 49 BEGIN 

3; 151 49 BITMAP_VBN = 0; 

3; 1514 494 BUFFER = READ_BLOCK (.BLOCK+.CURRENT_VCBCVCBSL_SBMAPLBN], 1, BITMAP_TYPE); 
3; 1515 495 BITMAP_VBN = .BLOCK+1; 

3; 1516 496 BITMAP_RVN = .CURRENT_RVN; 

3 1517 497 BITMAP_BUFFER = .BUFFER; 

fae fe foe 

: 1520 500 2 CBYTE = .BUFFER + .STARTBIT<3,9>; 

: 1 1 23) CBIT = .STARTBIT<0,3>; 

: 15 : 208 ! The outer loop allows us to use the same set of bit processing instructions 
: HF : ape for the odd bits at both the start and end of the scan. 

; 13 6 506 

3; 15 50 WHILE 1 DO 

3 13 : 208 BEGIN 

; iF : 319 : Process bits from the starting position up to the first byte boundary. 
:1 1 ; 

: 15 : 318 BITLIM = MIN (8 = .CBIT, .COUNT); !' max number of bits to scan 
: 13 ; A CASE .MODE FROM 0 TO 3 OF 

: 1 21$ FIND_SET): FFS (CBIT, BITLIM, .CBYTE, ENDBIT); 

; 13 3 218 CFIND_CLEAR): FFC (CBIT, BITLIM, .CBYTE, ENDBIT); 

: 1320 520 4 (SET_BITS): BEGIN 

3 1541 521 4 (,CBYTE)<.CBIT, .BITLIM> = -1; 

3 1266 5 ¢ 4 NDBIT = .CBIT + .BITLIM; 

3 154 5 ; 3 

3 15646 : 4 

3 1545 5 4 CCLEAR_BITS): BEGIN 


Page 
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TES; 
: Update the counters and pointers. 


VW -OOOnNoe 


COUNT = .COUNT = (.ENDBIT - .CBIT); 


' If we are now positioned on a byte gy we can process the bitmap 
on a byte by byte basis. Page through the itmap until the count runs out. 


al 


If .COUNT EQL 0 OR .ENDBIT NEQ 8 THEN EXITLOOP; 


CBYTE = .CBYTE + 1; 
(BIT = 0: | 


WHILE 1 dO 
BYTELIM = MIN (.COUNT/8, 512 ~ (.CBYTE-.BUFFER)); 
CASE .MODE FROM 0 TO 3 OF 
SET 


SFEEEE 


CFIND_SETI: ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, .CBYTE, 0); 
CFIND_CLEAR]: ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, .CBYTE, 255); 
CSET_BITSI: ENDBYTE = CHSFILL (255, .BYTELIM, .CBYTE); 
CCLEAR_BITS)]: ENDBYTE = CHSFILL (0, .BYTELIM, .CBYTE); 
TES; 
IF CHSFAIL (.ENDBYTE) THEN ENDBYTE = .CBYTE + .BYTELIM; | 
If the count runs out or we run into an end condition leave the Loop. | 


Otherwise read the next block, wrapping around the end of the bitmap 
when necessary, and loop. 


OONOUSEWN—O”O 


co 
Arun 
MEW —O CONGO UNE WN ( O OONOUE WOOF 


PAA ASMMAMNMNMAMNINVIN ES SLL LLL EEE 


COUNT = .COUNT - (.ENDBYTE - .CBYTE) * 8; 
IF .ENDBYTE = .BUFFER NEQ 512 OR .COUNT EQL 0 THEN EXITLOOP; 


med” ‘ats FROM MINU (SET_BITS, CLEAR_BITS) TO MAXU (SET_BITS, CLEAR_BITS) OF 


SSRASLESELE 


CSET_BITS, CLEAR_BITS]: MARK_DIRTY (.BUFFER); 
CINRANGE, OUTRANGE): 0; 
TES; 

BLOCK = .BLOCK + 1; 


ow 
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Www 


el ie ee ee ee ee ee ee ee ee ee ees 
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uw 
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IF .BLOCK GEQU .CURRENT VC8CVCBSB 
AL CP tried to reference off end of bitmap’); 


THEN BUG_ CHECK (BADSBMBCK, FATAL, 


BITMAP_VBN = 
BUFFER™= READ iL ock (.BLOCK+.CURRENT_VCBCVCBSL_SBMAPLBN], 1, BITMAP_TYPE); 
BITMAP_VBN = [BLOCK+1; 
BITMAP-BUFFER = .BUFFER; 
CBYTE = .BUFFER; 
END; ! end of block scan loop 
' We have either found the desired end condition or the count Dtdhte run 
out within the next byte. Process the final byte bit by bit 

IF gfount EQL 9 THEN EXITLOOP; 

CBY nates -ENDBYTE; 

! end of major loop 


' Scan is completed. Mark the buffer dirty if necessary and return the 
output values. 
vena . pee FROM MINU (SET_BITS, CLEAR_BITS) TO MAXU (SET_BITS, CLEAR_BITS) OF 


CSET_BITS, CLEAR_BITS]: MARK_DIRTY (.BUFFER); 
CINRANGE, OUTRANGE): 0; 
TES; 
»LENGTHFOUND = .BIT 
-STGPBIT = .STARTBI 
RETURN .COUNT EQL 0 
END; ! end of routine BITSCAN 


COUNT - .COUNT; 
T + ..LENGTHFOUND; 


~-EXTRN MARK_DIRTY, READ_BLOCK 
-EXTRN BUGS_ “BADSBMBLK 


BF ¢ 0000 BITSCAN:.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R11 
5E 0 ¢ 9008 SUBL2 # P 
4 AA OF PUSHAB -76(BASE) 
59 C ac 09 0008 MOVL haem COUNT 
OC 12 0000C BNEG = ‘1 
14 BC D4 OF CLRL § @LENGTHFOUND 
10 8 08 AC DO 0001 MOVL  STARTBIT, aSTOPBIT 
0 01 B60 16 MOVL #1, RO 
4 0001 RET 
AC 14 04 EF 1A 1$ EXTZV #4, #20 STARTBIT#1, BLOCK 
50 98 AA DO 0 MOVL 7404 (BA BASE) 
Ad 08 0 FD 4 CMPZV stro), BLOCK 
4 1A A BGTRU eS" 
FEFF 6 C BUGW 
00060* 0002E .WORD  <BUG$_BADSBMBLK !4> 
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ep-1984 01:11:44 VAX-11 Bliss-32 V4,0-742 
- oon 1384 93740503 Disk SVMSMAST TER:CFIIX.SR RCIJSMALOC .B32; ’y 


7 
SMAL 1b-se 1984 01:11:44 VAX-11 Bliss-32 V4.0-742 Page 49° 
yo 060 1 ~300 71382 93:4 147 DISKSVMSMASTER:CF1IX.SRCISMALOC.B32: 1.9 (11) | 
50 01 a? 9 0 28: MOVAB  1(R7), RO > 2687. 
00 BE 0h Bisa “Chek gt ab cS bog 
BB AA AO AA of A CHL =96(BASE), -72(BASE) : 2488 | 
08 AE BC AA 06 41 MOVL  =68(BASE), BUFFER + 2490) 
27 4 46 BRB : | 
00 F D4 00048 3$ CLRL  a0(SP) : 3493, 
DD 0 4B PUSHL #1 + 269% | 
1 DD 00040 PUSHL : 
50 98 AA 00 0004F OVL =104 (BASE) R : 
4 B047 9F 0093 PUSHAB a3 (RO) CBLOCK : 
00996 CF 93 FB CALLS , READ BLOCK : 
08 AE g D 905 VL UFFER : 
00 BE 01 A i 06 MOVAB 1(R7), @0(SP) + 2495 
BB AA AO AA DO 0006 MOVL  =-96(BASE), -72(BASE) + 2496 
BC AA 08 AE DO 006A MOVL BUFFER, -68(BASE) : 2497 
66 08 Ac 9 03 EF O06F 4$ EXTZ7v #3, #9, STARTBIT, CBYTE + 2500 
$ 08 AE CO 00075 ADDL2 BUFFER. CBYTE : 
6B 08 Ac 0 Q EF 00079 EXT2V #0, #3, STARTBIT, CBIT > 2501 
50 08 8 C3 OO07F 5$ SUBL3 BIT, RO + 2513 
59 30 D1 00083 CMPL = RO, COUNT : 
03 15 0086 BLEG = 6$ : 
50 59 D0 0008 MOVL COUNT, RO : 
58 50 00 00088 6$ MOVL RO, BITLIM ; 
03 00 04 AC CF O008E CASEL ModE #0, #3 > 2514 
0023 0018 0010 0008 00093 7$: <WORD 8$-7$,- ; 
9$-7$,- : 
103-78.~ 
04 AE ry. 58 58 EA 0009B 8$: FFS cBlT, BITLIM, (CBYTE), ENDBIT : 2516 
1D 11 OOOA1 BRB 13$ : 
04 AE 66 58 58 EB O000A3 9S: FFC CBIT, BITLIM, (CBYTE), ENDBIT : 2518 
15 11 O00A9 BRB 13$ : 
66 58 SB FFFFFFFF 8F FO OOOAB 10$ INSV #=1, CBIT, BITLIM, (CBYTE) : 2521 
05 11 00084 BRB 12$ + 2522 
66 5B 58 90 FO 00086 11$: =INSV. #0, CBIT, BITLIM, (CBYTE) > 2526 
04 AE 538 B C1 000B 1¢8: ADDL3 BITLIM, ¢BIT, ENDBI + 2527 
50 58 04 AE C€3 000C0 13$:  SUBL3  ENDBIT. CBIT. RO + 2535 
59 50 ¢O 000C¢ ADDL2 RY COUNT F 
0 Ye 0¢8 BNEQ 15$ : 2541 
0006 31 OOOCA 148 BRW 33$ : 
08 04 AE D1 000CD 15$ CMPL ENDBIT, #8 : 
F if OD BNEG 14$ : 
36 D D INCL CBYTE > 2543 
D4 000D CLRL cBIT + 2544 
51 59 08 C7 00007 16$ DIVLS #8, COUNT, R1 : 2548 
50 08 AE 6 ¢3 D SUBL BYTE BUFFER, RO ; 
5 0200 ¢ E Oe MOVAB V2(Rd), RO ; 
50 1 D1 OO0E CMPL =soR1, R : 
; 15 000 BLEQ ~=:«a7$ : | 
51 06 EA MOVL RO, RI : 
0c AE 1 D0 OO0ED 17$:  MOVL Ri BYTELIM : 
93 0 04 AC CF OOF CASEL mobe #0, #3 > 2550 
002A 0020 0011 000 F6 188: WORD 308-18b- ; 
$-18$;- : 


<yv 
De. 


« SRCJSMALOC .B32 


Bliss-32 V4.0-742 
MASTER: CF11X 


$ 


: 2570 
2571 
2573 
2576 
2584 
2608 


» #255, BYTELIM, (CBYTE) 


#0, (SP), #0, BYTELIM, (CBYTE) 
, MARK_DIRTY 


QUES PAOSERELE 14> 


25$ 
a0(SP 
BUFFER 
ri 
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; Tlessed’ Tine: 4:02.8 
3; Lines/CPU Min: 121 

3 Lexenes/CPU-Nip: 5455 

3 penery Used: 339 pages 
3; Compila 


SMAL $ep-1984 01:11:4 VAX-11 Bliss-32 V4.0-742 Page 51 
VO4=" 1§-se0-1984 93:4}: ; DISKSVMSMASTER:CF11X.SRCJSMALOC.B32; 1 . 3) 
146 «BC +5 AC 59 cs 186 36$: SUBL COUNT, BITCOUNT, @LENGTHFOUND i 2614 ; 
10 BC AC 14 Ci 0018 DL aLENG EHF OUND, SfARTBIT, @STOPBIT : 2615 : 
04 001C CLRL OR : 2616 : 
D3 Ooic TSiL COUNT ; ; 
3 Be BNEQ : : 
B 1¢9 INCL RO ; ‘ 
4 001CB 378: = RET ; 2618) ; 
; Routine Size: 460 bytes, Routine Base: S$CODES + O9DF : 
; 1639 619 1 ; 
; 1640 oc 1 END : 
: 1641 621 0 ELUDOM : 
PSECT SUMMARY ; 
: Name Bytes Attributes : 
; SCODES 2987 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
H Library Statistics | : 
rere ert > 2 ON en Symbols ococee-- Pages Processing 3 
3 File Total Loaded Percent Mapped Time : 
;  _$2558DUA28:(SYSLIBILIB.L32;1 18619 59 0 1000 00:01.9 3 
; COMMAND QUALIFIERS 3 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SMALOC/OBJ=O0BJ$:SMALOC MSRC$:SMALOC/UPDATE=(ENHS: SMALOC) : 
; Size: 2955 coge + 32 data bytes ; 
; Run “Time 2 1 : 
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